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The Problem Language Analyzer (PLAN) is 
designed to allow implementation of desir- 
able user-oriented (problem-oriented) lan- 
guages by providing a common language pro- 
cessor. Previously, problem-oriented lan- 
guages have required independent language 
processors that were in themselves major 
implementation tasks. Even though highly 
desirable, problem-oriented languages were 
implemented only for major applications. 
Reimplementation on new equipment has made 
long-term costs even higher. 


The PLAN system through the common proces- 
sor allows input to a job to be composed of 
several dissimilar problem-oriented lan- 
guage jobs, all operating in a homogeneous 
environment. It also allows easy modifica- 
tion and expansion of existing applica- 
tions. The PLAN concept of implementation 
of logic modules makes complete machine 
independence of logic modules more _ easily 
attainable. 


Logic module loading is accomplished dynam- 
ically at execution time as defined by the 
current job description. This means’ that 


logic modules are loaded only as required 
and that existing logic modules do not 
require modification to incorporate new 


processing capabilities. Multiple versions 
of the PLAN system for the IBM 1130 System, 
the IBM System/360 using the Disk Operating 
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INTRODUCTION 


System, and the IBM System/360 using the 
Operating System allow logic modules writ- 
ten in'machine independent ASA FORTRAN IV 
to be executed on either computer system. 
The job is described in problem-oriented 
terms on the most accessible system ina 
language compatible to all systems. 


In general, implementation of a = problem- 
solving system operating within a PLAN 
environment involves the several tasks as 
defined below: 


1. Definition of the problem-oriented lan- 
guage. This definition is processed by 
PLAN to create the language dictionary. 


2. Programming of logic modules (if exist- 
ent logic modules do not suffice) to 
support the problem solution functions 


(note that this does not encompass prob- 
lems of language processing; these are 
handled by PLAN). 


3. Generation of problem-oriented language 
statements to describe the particular 
unique problem to be solved. 


Many utility routines are provided with 
PLAN to make writing of logic modules 
easier and faster, and to provide a logic 
module that provides a more powerful and 
more efficient problem solution. 
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SYSTEM OVERVIEW 


The following diagram shows the overall 


logic of the PLAN Monitor. 


The system is driven by the program pop-up 
list. This list and each entry is eight 
EBCDIC characters naming a program module 
that can be found in the PLAN program 
library. There are two modules in the PLAN 
system that are loaded without using the 
pop-up list. These are: 


DFJPSCAN ~- The command processor and lan- 
guage interpreter which is loaded whenev- 
er th pop-up list is empty. 


DFJPERRS - The system error processor 
which is loaded if the monitor obtains 
control and an error has occurred. 


All other modules loaded by PLAN are loaded 
because their names were encountered in the 
pop-up list. 


The three entries shown represent the load- 
er interface subroutines LEX, LOCAL and 
LRET. 


LEX causes a transfer of control to the 
next module in the pop-up list. The 
calling module may be overlayed. 


LOCAL causes a transfer of control to the 
next module in the pop-up list to be 
executed as a subprogram of the caller. 
The calling program may not be overlayed. 


LRET causes control to be returned to the 
caller. Tf the module was called as a 
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LOCAL, control is returned to the calling 
module. Otherwise, control is given to 
the PLAN loader. 


Refering to the diagram, initial entry to 
PLAN causes DFJPSCAN to be loaded to pro- 
cess a command. DFJPSCAN initializes BLANK 
COMMON and places a list of names in the 
pop-up list and then calls LRET. 


On LRET, the loader checks for a return 
from a LOCAL module. If so, it returns 
control to the calling module. 


The loader control then checks for any 
errors and loads DFJPERRS to process them. 


The next name is extracted from the pop-up 
list and if nonzero, that program is loaded 
and entered for execution. This processing 
continues until the list is zero and then 
DFJPSCAN is reloaded and the cycle repeats 
itself. 


DFJPSCAN will terminate PLAN processing 
when an end-of-file occurs in the command 
input stream. It does this by LEX to the 
PLAN module DFJRETN which returns control 
to the OS or DOS supervisor. 


On a LOCAL entry to the loader, the test to 
call DFJPERRS is not executed because the 
calling module may not be overlayed. 


On LRET from a LOCAL control is transferred 
directly to the calling module. 
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PLAN SYSTEM INITIALIZATION 


OS/360 PLAN INITIALIZATION 


The general function of the OS PLAN 
initialization is to a) process PARMS from 
the EXEC control card, b) allocate the PLAN 
program COMMON area, c) load resident PLAN 
modules, dad) validate JCL and open data 
sets. 

The following items detail the sequence of 


events 


that occur during PLAN initial- 


ization for OS: 


i lar 


8 


The registers are saved and a save area 
is established. 


The system type MVT or PCP/MFT is 
determined. This is done by inspecting 
the CVT. If the system is MVT, an 
indicator is set for use by the core 


management routine. 


A GETMAIN for 408 bytes is issued to 


allocate the program pop-up list. The 
list is cleared and a pointer to the 
beginning and the end of the list is 


saved in the PLAN COMMON area. 


The EXEC control card PARMS 


processed. 


are 


The PLAN program COMMON area is allo- 
cated. This area must be contiguous 
and begin at the start of the partition 
or region. The PLAN mainline ‘DFJPLAN'‘ 
is exactly 12,288 bytes in length to 
insure that it is loaded at the begin- 
ning of the region on MVT systems. 
Refer to the following diagram showing 
the program COMMON area allocation. A 
vc GETMAIN is issued and an address B 
and a length Li is’ returned. The 
default value for L2 is calculated as 
(12K+L1) *2/3. If the PGAR PARM was 
specified the value for it is used. 
The length L3 is found from L1+12K-L2. 
The address C or the top of the PLAN 
program area is equal to AtL2. A 
FREEMAIN is then issued using the 
address Cc and a length L3. This 
releases the unused core. 
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TOP 


FREE 
STORAGE 


MAINLINE 





The PLAN modules DFJLODER and DFJTRACE 
are loaded into the partition. ‘This 
causes the first significant difference 
in the region layout between PCP/MFT 


and MVT systsms. On MVT, loading the 
modules causes creation of a block of 
core in subpool 252. On PCP/MFT sys- 


tems, the modules are loaded as high as 
possible in the partition. 


Data sets defined by the PLINP, PIOUT 
and PLSEQ DD cards are opened. If a 
PLINP or PLOUT DD card are missing, an 
ABEND user code 100 occurs. The sub- 
routines ‘TSRCHA' and ‘TSRCHB" are used 
to search the TIOT and read the JFCB if 
an equivalent DD name is’ found. The 
subroutine ‘OPENSEOQ' builds a DCB from 
a skeleton, merges fields from JFCB to 
the DCB, validates the device type, 
allocates the buffers, blanks the first 
buffer, and opens the data _ set. A 
TCLOSE macro is issued for all PILSEQ 
data sets so that the first access may 
be either READ or WRITE. 


The PLANLIB PDS is opened. 


L1 
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9. The PLSYSTAB data set (the phrase dic- 
tionary) is opened. If the file is 
new, it is formatted and then initial- 
ized. The key thing in this is that 
the ADD PHRASE phrase is written onto 
the PFINPUTA record of the file and a 
switch is set so that the module 
DFJPHRAS is the first program called in 
order to actually add this phrase to 
the dictionary. The phrase dictionary 
file is assigned a permanent drive 
number of zero and aé logical file 
number of 255 so that the phrase table 
dump routine can use the subroutine 
GDATA and RDATA to access this file. 


10. The managed area save file PLMANFIL and 
the checkpoint file PLCHKPT are opened 
if present. 

11. PLAN PERMANENT drive data sets 

(PLFSnyyy) are opened if present. 


12. PLAN DYNAMIC drive data sets (PLANDRVn) 
are opened and formatted if new. If 
the file is old it is validated. 


Note that the subroutine DSCHK does a 
physical open on all direct access file. 
If disposition is old the DSCB is read from 
vroc and validated. If the file is new, it 
is formatted with the value of FALSE. 
'7FFFFFFF “* 


13. A BLDL macro is issued to ensure that 
the modules DFJPSCAN, DFJPERRS, and 
DFJRETN are in the PLANLIB PDS. These 
modules must be present or the PLAN 
system will loop. 


14. The program area is cleared and either 
DFJPSCAN or DFJPHRAS is loaded to begin 
PLAN execution. 


DOS/360 PLAN INITIALIZATION 


The following items detail the sequence of 
events for DOS PLAN initialization. 


1. The address of the top of the partition 
and saved. 
cards are read and 


2. PLAN run control 


processed. 


3. The FORTRAN I/O area is’ allocated. 
This is done by using the PLAN subrou- 
tine DFJGMAIN which will allocate core 
from the top of the partition down. 


4. The PLAN transient routine SSBDFJI is 
called to set the address of the FOR- 
TRAN I/O area into the DOS COMREG area. 
This is necessary because the FORTRAN 
I/O package uses the address of the end 
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of the phase for a work area for its 


buffers. 


5. If a user work area was specified it is 
allocated. 


6. The resident PLAN subroutines DFJDIOCS, 
DFJSIOCS, and DFJCNTRL are moved to the 
top of the partition. 


7. The PLAN system CCB control blocks are 
created and moved to the top of the 
partition. 

8. The pop-up program list is allocated 


and cleared. 


9. The core-image library control block is 


opened. 
10. If an’alternate library is specified, 
its control block is created and 


opened. 


12. The PLAN module DFJIOCBS is loaded into 
the partition. 


13. If any *ASGN cards were processed, 
their specifications are merged with 
the existing control blocks in the 


module DFJIOCBS. 


14. If a TRACE is required the subroutine 
DFJTRACE is moved to the top of the 
partition. 


15. A check is made to ensure that the 
modules DFJPSCAN, DJFPERRS, and 
DFJPHRAS are in the core-image library. 


16. The ‘PLAN system files DFJPCHK, DFJPDTA, 
and DFJPFILE are opened using the PLAN 
transient routine $$BDFJDO. 


17. DFJPFILE (the phrase dictionary) is 
validated. If it is new, the program 
DFJPHRAS is put into the pop-up list. 

18. Transfer is to the loader 

execution. 


to begin 


OS PROGRAM LOADER 


The PLAN system must allow modules not 


linkedited together to communicate with 
each other through BLANK COMMON. For this 
reason the LOAD, LINK, xCTL, or ATTACH 


macros cannot be used to load modules to be 
executed under the PLAN system. 


Figure 1 shows the layout of a program 
segment in the PLAN program area. 
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i oe eg a] 
1 | ENTAB | 
| | 
oa | ; 
| | 
| PGM | 
2 | AREA | 
| | 
{--------- | 
| | 
3 | PCB | 
| | 
|--------- 1 
4 | UAB | 
j--------- 1 
| | 
5 | LSA 
| { 
}--------- 1 
6 | LCB 
CaaS 4 


Figure 1. PLAN program area layout 

1. The entry table contains the name and 
entrypoint for every CSECT in the pro- 
gram area. 


2. Program area contains the module itself 
with the BLANK COMMON CSECT extracted. 


3. The program control block contains the 
name, entrypoint, and other information 
about the program. 


4. The unresolved adcon block is. only 
created when an unresolved external 
reference is found in the program area. 


5. The LOCAL save area is used to save the 
program status if CALL LOCAL is used. 


6. The level control block describes the 
length of the entire segment. 


The OS program loader replaces the OS fetch 
facility. It is divided into two sections 
1) Loader Control which is located in the 
PLAN mainline, 2) Module Loader which is a 
section of the module 'DFJLODER’. 


The module loader performs the following: 


1. Relocation of the BLANK COMMON CSECT 

2. Builds the ENTAB 

3. Loads TXT records 

4. Relocation of adcons 

5. Creates a PCB 

The Loader control performs the following: 

Program area maintenance 

Free storage management 

In-core program search 

Bank loading control 

- Final linkedit and processing of unre- 
solved adcons 


s 


AE ND 
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6. Local processing control 
7. Creation of LSA and LCB 


The first step in loading a module is to 
determine if it is already in the program 
area. This is done by searching the PCB 
chain. If the module is in core, it is 
entered without any further processing. 
When the module is not found, program area 
maintenance is performed by adjusting the 


LCB and PCB chains to release inactive 
segments. If required, free storage man- 
agement is performed at this time. The 


loader is then called. 


The first step for the loader is to locate 
the module in the PLAN library data set. 
If an in-core directory is available it is 
searched for the module name. If the name 
is not found, a BLDL macro is issued to 
locate the module. The ESD (external-entry 
symbol table) records are read and pro- 
cessed. From these the entrypoint table 
(ENTAB) is built, the location and length 
of BLANK COMMON is determined, and the 
names of all external references are rec- 
orded in a table (ERTAB1). 


The TXT records which contain the relocat- 
able code for the module are then read. It 
is at this point that the BLANK COMMON 
CSECT is deleted from the module. All 
CSECTS originating above BLANK COMMON are 
relocated downward by the length of BLANK 


COMMON. The RLD records (Relocatable Adcon 
Dictionary) are read and the adcons in the 
program area are relocated. If an adcon 


refers to BLANK COMMON it is relocated to 
point to PLAN BLANK COMMON. If an unre- 
solved external reference (V-TYPE adcon) is 
found, its name is determined from the 
external reference name table (ERTAB1) and 
then entrypoint tables (ENTAB) for modules 
already in core and the JOBPAC. entrypoint 
table are searched. If an equivalent name 
is found, the external reference is 
resolved. If the adcon cannot be resolved 


an entry in the unresolved adcon table 
(ERTAB2) is made. After the module has 
been loaded the PCB is completed and _ con- 


trol is returned to the mainline where the 
unresolved adcons are processed. 


For each external reference still unre- 
solved, a 24-byte control block (URABLK) is 


built and the adcon is resolved to this 
block which has the format: 

0 L 15,16(0,15) 

4 BAL 15, URAENT-PLAN(0,15) 

8 DC C18‘ NAME* 

16 Dec V (PLAN) 


This code causes execution-time reference 
to the adcon to branch to the PLAN mainline 
where it is processed as a "LOCAL'. 
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The final action in the loading process is 
to create a LOCAL SAVE AREA and ae LEVEL 
CONTROL block. 


SEQUENTIAL FILE PROCESSING 


The PLAN subroutine DFJSIOCS processes 
read/write requests for all sequential 
files for OS. It is located in the module 
DFJLODER. For DOS it is loaded at the top 
of the partition by the initialization 
routine. 


For OS the files are opened at initial- 
ization time using the standard OPEN macro 
and the BSAM access method is used _ for 
processing. 


For DOS the files are opened when the first 
read/write request is executed by the tran- 
sient module S$SBDFJSO and the EXCP access 
method is used for processing. Basically 
the opening of the file consists of con- 
structing a control block that DFJSIOCS 
uses to process physical records. The 
conversion routines (PAIN, PAOUT, etc) lo- 
cate the buffer address and length from the 
control block and cause only transmission 
to/from the buffer. 


PLAN SORT FACILITY 


The PLAN subroutines PSORT, PMERG, GSORT, 
and GMERG provide the program interface to 
the PLAN SORT/MERGE modules. These are: 


1. DFJPSRTA and DFJGSRTA which are _ block 
sorting routines for DYNAMIC and PER- 
MANENT files respectively. 


2. DFJPSRTB and DFJGSRTB which are in-place 
merge routines which may be used if a 
SORT cannot be completed by the block 
sort modules. 

3. DFJPMERG and DFJGMERG are the PLAN 

DYNAMIC and PERMANENT file merge. 


The only differences between DFJPXXXX and 


DFIGXXXX modules is that DFJPSRTA, 
DFJPSRTB, and DFJPMERG use the READ/WRITE 
subroutines and DFJGSRTA, DFJGSRTB, and 


DFJGMERG use the RDATA/WDATA subroutines. 


PLAN SORT 


The PLAN SORT is invoked by the subroutines 
PSORT/GSORT issuing a CALL LCHEX (6, 
*DFJXSRTA, DFJXSRTB,*'). NOTE that the xX 
in both DFJXSRTA, DFJXSRTB correspond to 
either a P or G. 


DFJIXSTRA is the first load of the SORT, 
validates the sort control field, and 
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does the block sort. It creates a work 
area in the mainline which contains the 


following: 

WORD 1-2 ID block of file to be sorted 

WORD 3 Record length in bytes 

WORD 4 Number of words in the Record 
Sort Area 

WORD 5 Number of records in the Record 
Sort Area 

WORD 6 Address of list of RSA pointers 

WORD 7 Address of a save area for 1 
logical record 

WORD 8 Address of the last record in the 
Record Sort Area 

WORD 9 Address of the Record Sort Area 

WORD 10 Address of the Sort Control 
Fields 

Word 11 Sequence break KDIS 

The block Sort module allocates available 


core for the sort to two areas. 


1. The Sort record area where the actual 
record will be read/written. 


2. A list of pointers to each logical 
record in the Sort record area. 


After reading the block of records into the 
RSA, the LIST is initialized as shown in 
Figure 2. Then the SORT routine uses a 
binary chop search to order the list of 
pointers rather than the records. In the 
example, the list of pointers would change 
as shown at completion of the internal 
sort. The records themselves are rear- 
ranged into the order shown in the list. 
The process is repeated until each block in 
the file has been sorted. A check for a 
sequence break across blocks is made and if 
none occurs, the sort is complete at the 
end of the block sort. In this case, the 
pop-up list pointer is updated to bypass 
the loading of the merge module. 
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LIST RSA The in-place merge is performed by the 
module DFJXSRTB. The managed array save 

(------ 1 r--~--- 1 file is used as a work file. The general 

| | | 8 | technique is to locate two sequence breaks 

| RSA6 | RSA6 }----- 4 and peform a descending merge. When a 

| | | 4 | sequence break is found, the out-of- 

| RSAS | RSAS }-----4 sequence block is copied to the work file 

| | | 9 | to create space for the output of the 

| RSAG | RSAW f----- 4 merge. Then the work file and the in- 

| | | 1 | sequence block are read backwards and a 

| RSA3 | RSA3 [-----4 descending merge performed. The output of 

| | {| 16 | the merge is written backwards starting at 

| RSA2 | RSA2 }----- 4 the end of the out-of-sequence block. 

| | {54 

| RSA1 | RSA1 t--~--- 4 

bees 4 

aus as 1 

| | 

{| RSA2 | 

| { 

{| RSAG | 

| { 

{| RSA6 | 

| { 

| RSA1 | 

I | 

| RSA5S | 

{ | 

| RSA3 | 

aang ae J 

Figure 2. 
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OS CONTROL BLOCKS 


ENTAB ENTRY 


Coos he a 1 

0 
4 | ENAME | 
t cr ee ca ei ca cs ee cues ta 
8 | EP ADDR | 
aes od 
12 | LEIND | | 
| hee oe dj 


Os ENAME 
8-11 EPADDR 


Entrypoint name 
Entrypoint address 


12 LEIND Last entry indicator 
X'80" Last entry 
X'O00O* Not last entry 


The ENTAB is created by the program loader 
and appended to the end of every module 
loaded. Each entry contains the name and 
entrypoint for a CSECT in the module. This 
table is used when processing unresolved 
adcons. 


NAME/PCB 
(eas eae | 
0 | 
4 | MNAME l 
See aes a 
8 | LEVEL| ENTAB| 
}-——--- 4_--——- : 
12 | LCOM | 
16 | EPADDR | 
20 | PCBCHN | 
Deseret Benet 2 J 
0-7 MNAME Program name 
8 LEVEL Segment level assigned to 
module 
9-11 ENTAB Address of the entry table 
12-15 LCOM Length of BLANK COMMON CSECT 


for this module 

Module’ entry point 

Pointer to next active PCB, 
zeroes if last PCB 


16-19 EPADDR 
20-23 PCBCHN 


The NAME control block is resident in the 
PLAN mainline. It is used as a work area 
by the program loader and is the skeleton 
used to construct the PCB which is appended 
to the beginning of every module loaded. 


ERTAB1 
[worn 1 
0 | 
u CNAME | 
SERA EGET 4 
8 | ESDNUM| l 
j------- 4-—-——— 1 
12 | CHAIN | 
des a 5 
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0-7 CNAME Name of external reference 
8-9 ESDNUM ESD number assigned by link- 
age editor to this external 
reference 
12-15 CHAIN Pointer to next ERTAB1, zero 


if last 


An ERTABi control block is created by the 
program loader when a Type 2 ESD entry is 


processed. This table is used to identify 
the name of an external reference when an 
unresolved adcon is’ found during RLD 
processing. 
ERTAB2 
Sd aa a rar rename 1 
0 | | 
4 | CNAME | 
|—+-———-—--~--- 
8 | LADC | ADCADDR| 
Saxe aas SSS | 
12 | CHAIN | 
Eng CRONE Sete Srl penta! J 
0-7 CNAME Name of external reference 
8 LADC Length in bytes of adcon 


9-11 ADCADDR Core address of adcon 
12-15 CHAIN Pointer to the next ERTAB2, 
zero if last 


An ERTAB2 control block is created by the 
program loader during RLD processing when 
an adcon is found that cannot be resolved. 


These control blocks are processed by the 
final cleanup Llinkedit in the PLAN 
mainline. 
LOCAL SAVE AREA 
Ree ee 1 
0-63{ LOCREGS | 
~-~------ { 
64]| LPARMAD | 
--------- { 
68] LPICADR | 
~-------- { 
72| LCURPCB | 
~~~------ { 
76{ LCURTOP | 
~-------- { 
80] LCURBTM | 
ee ena ci J 
84] LOCCHNS | 
----~---- : 
88]| LCURLEV | 
Reece J 
0 LOCREGS Register save area 
64 LPARMAD Callers argument list address 
68 LPICADR Address of caller‘s pica 
element 
72 LCURPCB Address of the current PCB 
76— LCURTOP Top of managed free storage 
80 LCURBTM Bottom of managed free 
storage 
84 LOCCHNS Address of next LOCAL save 
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88 


A LOCAL 
control block but is 


area 
LCURLEV Current execution level 


save 


area is part of a level 


only used when the 


LOCAL facility is invoked. 


LCB 


4 


8 


ee et Si es a ce: 


CHAINADR 


LEVEL 


LSA 


An LCB (Level 


whenever 


Address of next LCB zero if 
last 

Level number 
this segment 
LOCAL SAVE area 


assigned to 


Control Block) is created 


a new segment is loaded or a CALL 


LOCAL occurs and a LSA is not available. 


DAFB 
am Sa cn aa ’ 
0-103 | DCB | 
Bas oh ee te 8 Ps 4 
104-107 | CHAINADR | 
108-111 |STATUS| [LGDRVNOM | LGPILNUM| 
f------1----- 4——-—--~-1-------- { 
112-115 | DECBCHN | 
116-119 | NDECBS_ | INRECTRE | 
|------------ 4---——~-—1-—------ { 
120 | FILWLGTH | 
|------------------------------ { 
124 | FILRLGTH | 
a oe A ge SUR PAE SIS PE Te nD 4 
0-103 DCB A standard BDAM DCB 
104 CHAINADR A pointer to the next 
control block in the 
chain, zero if last. 
108 DTATUS BYTE xX‘'80' Look ahead file 
type 
x‘'4o' Record used 
indicator 
X'O4* Write operation 
X'02' Locate mode 
110 LGDRVNUM Logical drive code 
111 LGFILNUM Logical file number 
112 DECBCHN A pointer to the chain 
of DECB‘ts'9 attached to 
this file. 
116 NDECBS Number of DEC FILE. 
116 NDECBS Number of DECB's for 
this file. 
119 NRECTRK Number of record/track 
for this file. 
120 FILWLGTH Number of words in file 
124 FILRLGTH Number of records in 


14 


file 
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A DAFB is’ created at initialization time 


for all direct access files defined by 
PLSYSTAB, PLMANFIL, PLCHKPT, PLANDRVx, 
PLFSYnnn DD cards. 
SFB 
CS SS ee a 1 
0-95 | DCB | 
[------~----------------- : 
96-99 { CURREC { 
100-103 | PCCHAR| CALLTYPE| RECSIZE | 
t---~—-1-—-------1-------- : 
104-107 | eu | 
108-111 | STATUS| STATUSA | FILENUM | 
112-115 Ereene | PAGELGTH | 
}--------------- 4—------- { 
116-119 | NEXTREC | 
}~----------~--~--------- : 
120-123 | EOBADDR | 
}----------------------—- { 
124-127 | CURRDECB | 
}---~-~-~---------------- 4 
128-131 | NEXTDECB | 
A ee J 
0-95 DCB Standard BSAM DCB 
96 CURREC A pointer to the current 
record 
100 PCCHAR ASA carriage control 
character for next output 
record 
101 CALLTYPE X‘80' PLOUT CALL 
X*20' PLINP CALL 
102 RECSIZE Logical record size 
104 CHAINADR Pointer to next SFB, zero if 
last 
108 STATUS Status byte 
X'80" PLOUT occurred 
X*20* PLINP occurred 
x'10" Carriage control 
allowed 
X'08* Physical EOF occurred 
X'O04" Logical EOF occurred 
109 STATUSA Status byte 
X*80" PLOUT device 
X'20* PLINP device 
X'02 Double buffering used 
X*‘01 Prime required 
110 FILENUM File ID number 1-255 
112 LINECNT Current line counter for 
files with RECFM FA, FBA 
114 PAGELGTH Number of lines per page 
116 NEXTREC Address of next available 
record area 
120 EOBADDR Address of end of the cur- 
rent block 
124 CURRDECB Address of the current DECB 
128 NEXTDECB Address of the next avail- 
able DECB 


A SFB is created at initialization time for 
ali data sets defined by PLINP, PLOUT and 
PLSEO DD cards. 
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DOS CONTROL BLOCKS 


DAFB DOS 
0-3 |DBLKSI TDLUNIT | 
4-7 [PC YU] DHBED | ENED |DNIC 
tee a J 
8-11 | PriRecns | 
{-------------------- { 
12-15 ] FILWLGTH | 
a ne Sa eee 4 
16-19 |DFILNUM| | 
ae i ee F 
20-23 | ere | 
ba oe ee J 
0 DBLKSI Physical record length 
2 DLUNIT DOS logical unit assignment 
4 DCYL Starting cylinder number of 
the extent 
5 DHEAD Starting head number of the 
extent 
6 DNRT Number of records per track 
7 DNTC Number of tracks per 
cylinder 
8 FILRLGTH Number of records in file 
12 FILWLGTH Number of words in file 
16 DFILNUM Drive code and file number 
20 DCHAIN Address of next DAFB 


The DAFB is built by the direct access open 
routine $SBDFJDO and is used by the subrou- 
tine DFJDIOCS to process all direct access 
files. 


DOS SFB 
(Sao a ee q 
0-3 [CTRLOP| |SLUNIT | 
}-—_-__}—-____ 
4\—~7 | Denisa MOD Ese n PCCHEt 
}------4-------4----~--4------ { 
8-15 | ae CCW | 
a a et a a ee 4 
16-19 | STATUS | STATUSA| RECSIZE | 
,------1---—--—- + ------ —- 1 
20-23 | SunGEc | 
alsa ae Se A ee ed 4 
24-27 { BLKSIZE | RECLGTH | 
ee REM EE SES Pe eR (pet Se eye See eer ea a ey 4 
28-31 | PAGELGTH Jee | 
|--------------1-------------- { 
32-35 | aa | 
ati a aac { 
36-39 | EOBADDR | 
fa a eee eee { 
40-43 { CURRBRF | 
pee er eee | 
4u-47 { NEXTBUF | 
Vinh Jj 
0 CTRLOP A control CCW used for car- 
riage control 
2 SLUNIT DOS logical unit assignment 


5 CALLSAV Call type indicator 


4 MBLKSI 
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X*01* PLOUT call 

X*02* PLINP call 

R/W CCW 

Status byte 

X*80* Device is a printer 
X'4O" Device is a card reader 
X*20* Device is a tape 

X*10° Device is a 1052 

X*'08' Physical EOF occurred 
X"O4* Logical EOF occurred 
X*02* PLINP call occurred 
X"01* PLOUT call occurred 
Status bytes 

X*80° WAIT required on device 


8 DATACCW 
16 STATUS 


17 STATUSA 


X*4O" Prime required on 
buffers 

X"°20" Stacker select required 
x*10° Carriage control 
suppressed 

x"08°* Carriage control 
allowed 


X"04* Double buffering used 
X‘'02* PLINP device 
X"01*" PLOUT device 
Logical record length 
Address of current 
area 

Physical block size 
Physical record length 
Number of lines per page 
Current line counter 


18 RECSIZE 
20 CURREC record 
24 BLKSIZE 
26 RECLGTH 
28 PAGELGTH 
30 LINECNT 


32 NEXTREC Address of next available 
record area 
36 EOBADDR Address of end of current 


block 


40 CURRBUF Address of current block 


44  NEXTBUF Address of next available 
block 
This SFB is created by the sequential file 
open routine $$BDFJSO and is used by the 
subroutine DFJSIOCS to process sequential 
files. 
IOCB 
0-3 | MLUNIT |MNOD |MSTATUS | 
[------ 4~-~-1------- { 
4-7 [MBLKST | MLRECL | 
ieee CpPN aii. Unipedtin 0 rie ae aea Paro J 
0 MLUNIT DOS logical unit assignment 
2 MNOD PLAN device code of rile 


number 

Status byte 

X" 40" DYNAMIC drive file 
X" 20" PERMANENT drive file 
X*10" Sequential file 


3 MSTATUS 


X*08* ASA carriage control 
required 
xX" Ou" Double buffering 
required 


X*02* Open indicator 
X"01" End of type indicator 


Physical record length 


6 MLRECL Logical record length 
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The IOCB control blocks are assembled into 
the module DFJIOCBS and may be altered by 
PLAN run control cards at initialization 
time. 


DIRECT ACCESS FILES 


On OS PLAN the BDAM access method is used 
to process direct access files. Files are 
opened by the initialization routine using 
the standard OS OPEN macro. The subroutine 
DFJDIOCS is ae section of the PLAN module 


DFJLODER. 

On DOS PLAN the EXCP macro is used to 
process direct access files. Files are 
opened by the PLAN transient module 
SSBDFJDO. The subroutine DFJDIOCS is 
placed in core by the initialization 
routine. 

The subroutine DFJDIOCS processes’ read/ 
write requests. It will handle both ‘'lo- 
cate" and ‘move’ mode operations. A file 


is treated as a byte-addressable string of 


characters. This facilitates processing 
for the word addressing used by the PLAN 
file support subroutines. *Move" mode 
requests may address a file on ae byte 


boundary. *"Locate* mode may only use rec- 
ord addressing. 


On OS and DOS the file layout 
sing of the phrase dictionary 
Managed area save file are identical. 

checkpoint files have different formats. 


and proces- 
and the 
The 


CHECKPOINT PROCESSING 


An OS checkpoint record is a 256-byte 
header followed by the active program area. 
The header is in the following format. 


0-63 Register save area 
64-67 Length of the program area 
68-91 Name control block 
92-95 Word displacement of previous 
checkpoint 
96-99 Word displacement of current 
checkpoint 
100-103 Address of the program area 
104-107 Address of the current PCB 
108-115 Managed free storage limits 
116-119 Address of the chain of LOCAL 


Save areas 
120 Current execution level 
128-256 Bootstrap program 
256-- Program area 


The LCHEX subroutine writes the checkpoint. 
On a checkpoint reload, the header is read 
into a work area and then control is 
transferred to the bootstrap to reload the 
program area and restore the system status. 
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On DOS each module is written out separate- 


ly and contains a 20-byte header as 
follows: 
0-7 Module name 
8-11 Module origin address 
12-15 Module end address 
16-19 Address of LCHEX restore E.P. 
The LCHEX subroutine contains the register 


save area and other work areas to save the 
system status. The LCHEX subroutine will 
only write out the module it is’ linkedited 
with. On a checkpoint reload, the header 
is read and the module reloaded and then 
control is returned to the LCHEX subroutine 
to restore the system status. 


DYNAMIC FILE PROCESSING 


contains formatted 
The formatting must 


A PLAN DYNAMIC drive 
records of 600 bytes. 


be done by the initialization routine for 
OS and the program DFJINIT for DOS. The 
record layout for both systems is 
identical. 

A DYNAMIC drive is logically split into 


segments of 10 records each. Three control 
records are kept in the file to control 
allocation of space within the drive. Two 
of these records (0,1) are VTOC records 
which contain pointers to all existing 
LOGICAL files within the drive. The third 
record (2) is the availability record which 
contains pointers to the free segments 
within the drive. When a file is opened 
(FIND) the required number of segments are 
extracted from the availability record and 
a FDR (File Description Record) is created 
for the file. This is always the first 
record in the file and contains pointers to 
the segments allocated to the file. A 
pointer to the FDR is’ kept in the VTOC 
records. On a READ or WRITE the FDR is 
used to locate the physical records to be 
read. When a file is released the space 
recorded in the FDR is’ returned to the 
availability record and the FDR and its 
pointer in the VTOC record are destroyed. 


FILE LAYOUT DYNAMIC DRIVES 


RECORD 0 VTOC RECORD 
i! ft — | | t t t ttl | | | 
[S|Pi[P2[P3|P4] |F1I[F2]F3]e|e]F127] | ID] 
tt t§ — | — | tr t tt t { | | 
os es Pe Se en an nn nn en Sn a ae Sn Knee | 

04 8 12 16 20 24 28 32 528 54.0 
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RECORD 1 

{ | | | 

| [F128] F129]¢ e© © © [F255] 
boo de hee a es 2 Gene aeee | 
0 20 528 


S This field contains the count of 
the total number of available 
segments in the drive. 


P1-P4 Contains the number of segments 
allocated at priority 1 to 
priority 4 respectively. 

F1-F255 Contains a pointer to the first 
record of LOGICAL files 1-255 
respectively. This field con- 
tains zero if the file does not 
exist. The pointer is in the 
following format. 

Byte 0 File priority 

Byte 1-3 Relative record number 
of the FDR for the 
file. 

ID Is a four-byte ID field used to 
validate the file. 

RECORD 2 AVAILABILITY RECORD 

The availability record contains pointers 

to all the free space in the file. These 

are a string of pointers to the free 
extents within the drive. 
| ; tt | te tid 
S1|E1|S2|E2] e | © | © | © |[SNIEN| 


| 
[eee Soceen Dein! EeAeee! Keeney Geeeanees Uemnies Eeueans Desire ea | 
0 2 4 6 8 10 12 
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S1~-SN Is the starting segment number of 
a free extent 
E1-EN Is the ending segment number of a 


free extent 


A high-order bit in the S1 field 
the end of the string. 


indicates 


FDR File Description Record 


The FDR record is the first record of every 
logical file 


Pritt t §— §t | t ttl to 
|P{R|W[SL[E1L|S2|E2|S3{E3]e]e¢|SN]EN| 
| eee eee es a Were Leeann Keene Kemer eee Soe Comes Emery Nene | 


014 8 1012 14 16 18 20 

P Is the file priority 

R Is the relative record number of 
this record 

W Is the number of words in the 
file 

S1-SN The starting segment number of an 


extent allocated to this file 


E1-EN The ending segment number of an 
extent allocated to this file. 
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FILE RECORD LAYOUT 


PFILE LAYOUT 


The PLAN language definition file (PFILE) 
is generated and maintained by the DFJPHRAS 
logic module and is utilized by PLAN (load- 
er) and DFJPSCAN for temporary system save 
areas. PFILE is required to be present 
before a PLAN execution is permitted. 
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PFILE is defined as a logical file contain- 
ing a minimum of 14 (17 on the 1130) anda 
maximum of 268 (271 on the 1130) records, 
Records in PFILE are fixed in length at 512 
bytes on System/360. On the 1130 each 
record is 320 (16-bit) words in length. 
The following table lists the contents of 
PFILE. 


(Se es aa re ee Ne Cee oe eed ee a ee ee eS ee ee ee ae 1 
on SIZE IN RECORD 
| NAME RECORDS DISPLACEMENT DESCRIPTION | 
laetnaae 5 0 Error stack area : 
eee 1 2) Level 4 symbol table save area (128 words) 
ieee 1 6 Card image residual save area (20 words) | 
Taree 1 e Level 3 symbol table save area (128 words) | 
| PFPWVTAB 1 8 Phrase-verb validity table (512 bytes) | 
Sees 1 9 Level 2 symbol table save area (128 words) | 
| PFINPUTA 1 10 Current Statement image save area (114 words) 
Nace 1 11 Level 1 symbol table save area (128 words) 
Teese 1 12 Phrase entry availability table (512 bytes) 
egecsae 1-255 13 Phrase entry table 


The following section describes the func- 
tions of each of the areas listed in the 
above table of contents: 

PLFDRSV On OS and DOS PLAN systems’ the 
area is used as a temporary stack 
area for diagnostics awaiting 
processing by the system error 
module when a stacked mode of 
operation is indicated. 


This area is used to store the 
level 4 symbol table. The symbol 
table must be saved for use in 
initializing the symbol table of 
a blank-level command following a 
level 4 command. 


PFSYMT4 


PFINPUTB The image of the card, to the 
right of the semicolon terminat— 
ing a command, is saved in this 
area for processing as the start 
of the following command. (Hexa- 
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decimal 00 
the image.) 


indicates the end of 


This area is used to store the 
level 3 symbol table. The symbol 
table must be saved for use in 
initializing the symbol table of 
a blank-level command following a 
level 3 command or the symbol 
table for a level 4 command fol- 
lowing this level 3 command 
without intervening commands of 
level 3 or higher. 


PFSYMT3 


PFPWVTAB This table is used as an expe- 
dient to determining phrase 
validity. There are 256 entries 
corresponding to the 256 possible 
phrase check sums. A zero entry 


indicates no valid phrase has the 


check sum; a nonzero entry is a 
pointer to the phrase entry 
table. 
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This area is used to store the 
level 2 symbol table for use in 
initializing the symbol table of 
a blank-level command following a 
level 2 command or the symbol 
table of a level 3 command fol- 
lowing this level 2 command 
without an intervening command of 
level 2 or level 1. 


PFSYMT2 


This area is used to store the 
length and the EBCDIC image of 
the current phrase. DFJPSCAN 
places the command in this area 
for access by DFJPHRAS. The sub- 
routine INPUT reads the statement 
image from this area and places 
it in memory. 


PFINPUTA 


PFSYMT1 This area is used to store the 
level 1 symbol table for use in 
initializing the symbol table for 
a blank-level command following 
this level 1 command or the sym- 
bol table for a level 2 command 
following this level 1 command 
without an intervening level 1 
command. 


is one entry in this table 
for each record in the phrase 
entry table. The entry provides 
information as to the available 
room within each record for the 
addition of new phrase 
definitions. 


PFPAVTB There 


PFPETAB This portion of the PFILE con- 
tains the language description 
elements. Each command is 
entered with header information 
followed by up to seven tables of 
phrase definition data. The 
length of this section is vari- 
able up to a maximum of 255 
records, a function of the number 
of commands that must be added 
into the language dictionary. 


The following section describes the detail 
layout of the variable (maintained) por- 
tions of PFILE. Those portions that are 
merely temporary storage areaS are not 
described. 


PFPWVTAB (PHRASE-VERB VALIDITY TABLE) 


This section has 256 entries corresponding 
to the 256 possible phrase check sums. The 
word check sum of each word in the phrase 
is calculated as: 


KSUM = L1*4 + L2*2 + L3 
Li = First letter in EBCDIC in low- 
order eight bits 
L2 = Second letter in ESCDIC in low- 


order eight bits 


PROBLEM LANGUAGE ANALYZER (PLAN) 


SYSTEM MANUAL 


L3 = Third letter in EBCDIC in low- 


order eight bits 


Only the low-order eight bits of the word 
check sum are saved. The phrase check sum 
is formed by the “exclusive or" of succeed- 
ing word check sums. The following example 
illustrates the calculation of the phrase 
check sum for the phrase “DUMP PLAN": 


Word Check Sum Calculations 


D 11 0001 0000 310 
U 01 1100 1000 1¢8 
M 00 1101 0100 op4 
101 1010 1100 SAC AC 
P 11 0101 1100 35c 
L 01 1010 0110 1A6 
A 00 1100 0001 oc1 
101 1100 0011 5C3 C3 
DUM 1010 1100 AC 
PLA 1100 0011 C3 
0110 1111 6F 


The 256 entries accessed by the phrase 
check sum have the following format. Each 
entry contains 16 bits. The term “record/ 
64° in the following discussions means 64 
bits on System/360 and 80 bits on the 1130 
System. This grouping is one sixty-fourth 
of a disk record. 


| | { 
Contents |V| A | B | 
Use tee Sabres epee 4 
Bit 012 7 8 15 


V Verb Control 
0 if no verb phrase has this check sum 
1 if a verb phrase has this check sum 


A The number of records/64 from the 
beginning of the sector indicated by B 
to the first phrase entry in the chain. 


B Those bits contain the relative sector 
address (1-255) of the first phrase 
entry in the chain of phrases with 


equal check sums. The field is zero if 
no valid phrase has this check sun. 


PSYMT 1,2,3,4 (SYMBOL TABLES) 


This section is made up of 255 bytes of 
information, including 126 (16-bit) words 
containing the symbol table entries. The 
format of the table is shown in the follow- 
ing chart: 

| 


rite 
Contents |O{R|L|0| E | 


Ll ns Seiad 
Byte 01234 255 
R The relative byte (S$-bit) address of 


the first table entry. The tables are 
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built from left to right. The right- 
most entry wraps around to the left 
end. The last (rightmost) value 


entered is preceded to the right by a 
zero entry. 


L The level of the symbol table is indi- 
cated as the level minus. one. Thus, 
the indicator occupies the second and 
third bits and ranges from 0-3. 


E Each symbol is entered in compressed 
form from the phrase. The table is 
initialized from the symbol table of 
the next higher level. The format of 
the compressed symbol is shown in the 
chart below. The symbol allows expedi- 
tious detection of undefined symbols. 
Note that the symbol table entry is the 
same as 1 and 2 of Table 3. 


[ { | | 
Contents |Letter i|[Letter 2{[Letter 3]0 | 
L 1 


en eis Soc i a cies pe sae ey 
Bit 0 4 5 9 10 14 15 
The letters are compressed into five 
bits through the following code 
compression: 
LETTER COMPRESSED CODE 
A~-I 1-9 
J-R 11-19 
S-Z 22-29 
blank 0 


PFPAVTB (PHRASE AVAILABILITY TABLE) 


This section of PFILE contains a maximum of 
256 entries corresponding to the number of 
records in PFPETAB. Each entry is a half- 
word (16 bits). The entry format is shown 
in the following table: 


B The number of records/64 to the begin- 
ning of the first phrase entry or 
available space entry in the sector. 
The value of 7FFF (hexadecimal) indi- 
cates that the entire sector is avail- 
able; 8000 (hexadecimal) indicates’ the 
end of the table. 


L The number of records/64 in the largest 
contiguous, available block that begins 
in this sector. This entry is used as 
a test for the possible addition of the 
current phrase into this sector. 
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PFPETAB (PHRASE ENTRY TABLE) 


The available space entries and the phrase 
entries in the phrase entry table are 
packed across sector boundaries. The first 
records/64 of the phrase entry table must 
be initialized when PLAN is invoked. If it 
is not, the ADD PHRASE command is set and 
PHRAS is loaded to add it to PFILE. The 
format of the PFILE header is shown below 
in hexadecimal. 


{ P |F IT [Lt {EE [°° | 
}0001] D7 | cé {co | D3 [cS |[ 4B I 
[| ee ee eee See Ce Se en | 


0-15 16-23 24-31 32-39 40-47 48-55 56-63 


Note that bits 16 to 63 contain the EBCDIC 
representation of PFILE. On the 1130 Sys- 
tem, bits 64-79 are included but unused. 


The first word (32 bits) of each phrase (or 
available space) entry provides data as. to 
the size of the entry and pointers to the 
next item in the chain. The format of this 
portion of the entry is provided below: 


{| l { { | | [ [ 
{T] L |xfooo] s ]| vi z | SA | 
a en ee as a in ns Saree | 


01345 78151617 23 24 #31 


T This bit determines whether this is a 
phrase entry or an available-space 
entry. 

0 = Phrase entry 


1 = Available space (The following 
fields, except S, are meaningless 
if this is an available-space 
entry.) 

L These bits (in a phrase entry) define 


the level of the phrase 
the following table: 

000 Level 1 

001 Level 2 

010 Level 3 

011 Level 4 

100 Blank level 


according to 


X The presence of this bit indicates a 
level zero phrase. 


S These eight bits define the number 
(<128) of records/64 in this entry. No 
phrase may result in an entry of great- 
er than 128 records/64. The appropri- 
ate diagnostic is issued if such an 
attempt is made. 


Vv This bit (in a phrase entry) defines 
whether the phrase is a verb or an 
object phrase. 

0 = Object phrase 
1 = Verb phrase 

Z This six-bit (<64) field defines the 

number of records/64 (within the sec- 
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tor) that precede the first word of the 
chained-to (phrase with equal check 
sums) entry. This entry and the fol- 
lowing entry allow direct access of the 
chained phrase. 


SA This eight-bit field (<256) defines the 
sector address, relative to the first 
record of the phrase entry table minus 
one word, of the first word of the next 
chained-to phrase. This field is zero 
if this phrase is the last of a chain. 


Note that all phrases of equal check sum 
(as defined under phrase-verb validity 
table) make up the links of the phrase 
chain. 


Following the phrase entry header, as 
defined above, are up to eight tables. 
Each table is ended with 80xx (hexadec- 
imal), where xx is the number of 16-bit 
half-words in the following table. The 
last table is terminated with 7FFF 
(hexadecimal). Trailing tables of zero 
length are not required, nor is the table 
length indication (8000) entered. 


TABLE 1 (PHRASE NAME) 


One word (32 bits) is required for each 
word in the phrase name. There is a 
maximum of five double-words used. Letters 
are coded in EBCDIC code. 


| | | | l 
[Becves ELBeCees 2|Letter either yseo) 
vee 


15 16 ag 24 ac 


(80xx) or last 
placed in the 


Note that the next table 
table (7FFF) indicator is 
next half-word. 


TABLE 2 (CONSTANT INITIALIZATION DATA 
VALUES) 


This table contains all constant (default 
or initialization) values. There are four 
formats for this entry that depend upon the 
format of the phrase definition. In the 
following table definitions, the example 
phrase entry is given, followed in order by 
the general form of the table entry, the 
description of the table, and the table 


entry representing the example phrase 
entry. Note that there is one entry 
required for each literal character count 


plus one for each succeeding group of four 
literal characters. 


1. Constant Value: 1(35)10, 


PROBLEM LANGUAGE ANALYZER (PLAN) 


SYSTEM MANUAL 


it | | | 
foyoV S f vi | 
LLL bd 
01215 16 47 


S This 14-bit (<16,384) field defines the 
subscript relative to the beginning of 
the switch area. 


V This 32-bit field defines the initiali- 
zation value as defined in the phrase 
entry. 


Poteet beh, Behe hl 
JOPOF2{D JO JO {oO FO {oO JO JO JA | 
L-LiLot. todd 


04 8 12 16 20 24 28 32 36 40 44 


2. Symbolic Subscript: I(M)DATA3, 
i | | { 
4] Cc {| OF S | Vv i 
ase! ene a 5 RESORT ieee yomerdee ae ee aa sd oe J 
01 15 16 17 31 32 63 


Cc This 15-bit field contains the com- 
pressed data name in symbol table code 
that is to be initialized. The symbol 
is stored in the same compressed code 
as defined for the symbol table 
entries. 


S This 15-bit field contains the sub- 
script relative to the data name into 
which the initialization value is 
stored. 


V This 32-bit field defines the initiali- 
zation value as defined in the phrase 
entry. 


1 tf | 
19{073] 7] 
Gd  d 1 Sag acne eens J 


3. Implied DO: 


fil | | | | 
loya] S f— D | IF {| Vv { 
Rebeka teen A cate Mt Seas, J 


012 15 16 31 32 47? 48 79 


1(30,36,2)15,... 


Ss This 14-bit (<16,384) field contains 
the subscript associated with the data 
value relative to the beginning of the 
Switch area. 


contains the 
the implied 
multiple of 


D This 16-bit field 
displacement (range) for 
DO. The value must be a 


field I. This value is computed from 
the first two specified implied DO 
parameters. 

I This 16-bit field contains the incre- 


ment for the implied DO. 
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PROBLEM LANGUAGE ANALYZER (PLAN) 


SYSTEM MANUAL 


V This 32-bit field contains the initial- 


ization value as defined in the phrase 
entry. 
Pitt | I I 
{4jo,2is | 0006 {0002 |O0000000F 


{ 
 ipees GOSS WA! Aaa mtn oe Peseta eng ee gO Bh See Be ay ea J 
04 8 12 16 31 32 47 48 79 
4. Symbolic Subscript and Implied DO: 


(M+2,10,2)NAME1,... 


| | 1 | | | { 
fafes [taf D [| It vi f 
t_1L-_——— hn nh ah, me a ae 1... 4 
01 151617 31 32 47 48 79 


CS This field contains the compressed data 
name of the starting position to be 
initialized. The symbol is stored in 
the same compressed code as defined for 
symbol table entries. 


Vv This 32-bit field contains the initial- 


ization value defined in the phrase 
entry. 
D This 16-bit (<65,536) field contains 


the displacement from the first posi- 
tion to be initialized to the final 
position to be initialized. 


I This 16-bit field contains the incre- 


ment between succeeding values to be 
initialized. 


| | 
0002 | 00000001 | 


TABLE 3 (SYMBOL TABLE) 


1. Symbol with Constant Subscript and 
Scale Value: P+2(15)ABC... 


1s | oO] E [{ Tf P [646 SUB | 

be ee be ee TAS eae ane Oe Jj 

0 14 15 16-17 18 19-21 22 23 31 
Ss This 15-bit field contains the com- 
pressed data name to be defined. The 


format is as defined above for symbol 


tables. 


E This field defines the user-exit number 
to be associated with this symbol. 


00 = No exit 

01 = User exit 1 
10 = User exit 2 
11 = User exit 3 


IT This field defines the mode for the 


variable. 
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Real (floating-point) 
Integer (fixed-point) 


Pp This three-bit (<8) field contains the 
scale factor to be associated with this 
symbol. 


G This one-bit field determines the 
of the scale factor. 
0 Positive 
1 Negative 


sign 


SUB This nine-bit (<512) field contains the 
subscript of the value to be entered in 
the symbol table relative to the first 
position of the communication array. 


Pltd er t tol | 
[O(s;s{ of] O| 8] Of F | 
t_-L1-41- bt dL 
0 4 8 12 16 20 24 28 31 


2. Symbol with Constant Subscript and No 
| | | | 
{| s | 1 | E } I | SUB | 
enya Bae eral Uae eir Bae ene Career ne ae AB J 
0 14 15 16 17 18 19 31 
Ss This 15-bit field contains the com- 


pressed data name in the mode indicated 
for symbol table entries. 


E This two-bit field defines the user- 
exit number to be associated with this 
data name. 

I This one-bit field determines the mode 

of storage. 


0 = Real (floating-point) 
1 = Integer (fixed-point) 
SUB This 13-bit (<8192) field contains the 


subscript associated with the data name 
relative to the switch area. 


Pett ¢t — tI | 
jc/8{5{ By Al Of 1] 9 | 
L-toLite dd dy 
05 812 16 20 24 28 314 


3. Symbols with 
(M+ 2-N) ABC... 


Symbolic Subscript: 


subscript is indicated by 
setting SUB to zero. The subscript defin- 
ing expression is then appended to the 
symbol table entry in EBCDIC code with a 
prefixed left parenthesis and a terminating 
comma . 


The symbolic 


| [ l 
| 08860000 | 4DD4S4EF260D56B_ | 
cea ho ee ee 4 


0 32 87 
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TABLE 4 (PROGRAM LIST) 


The program list table is made up of one 
entry per program in the list. 


1. Program Name: M0798,... 


| | 
| 8-CHARACTER EBCDIC NAME | 
| (RIGHT-PADDED WITH BLANKS) | 


Me i ie ee re 
0 63 
Pl?rEti tt tttititt td 
IDIS(FLOLFI7IFISIFIS{4 [Op 4{ Ops] oy] 
| Ss CS es a eee es eee oe ores es ee ee Se Ge A 
0 16 17 31 32 60 


2. Checkpoint Return (asterisk) 


| 
| Sc40404040404040 | 


3. Left Parenthesis (EBCDIC) 


| | 
| SD40404040404040 | 


4. Right Parenthesis (EBCDIC) 


| | 
| SD4O4O4040K040KO | 


TABLE 5 (DATA CHECK ENTRIES) 


1. Test, Abort, Generate PLAN Literal: 


(5) *,.4.6 


i | | | 
jol * | suUB | cr | 
, een Coenen Cees cee ne re renee i saa a ais a a ese J 
15 16 31 


two-bit field contains the condi- 
tion code. 

* 

¥*R 

*T 

*F 


o 
ren 
io Ww wu 


SUB This 13-bit (<8,192) field contains the 
subscript relative to the switch area 
of the PLAN word to be tested. 


CTL If this field is nonzero, there is a 
suffix section, as defined under 4 and 
5, Starting at field "F". 


PROBLEM LANGUAGE ANALYZER (PLAN) 


SYSTEM MANUAL 


Gea eet ee J 
0 4 8 12 15 
2. Test, Abort, Generate PLAN Literal; 


Symbolic Subscript: (M)NAME*R,... 


15 16 17 
* (See above) 


SYM This 15-bit field contains the com- 
pressed data name in the format as 
defined for symbol tables. 


CTL (See above) 


3. Same conditions as above: 
Same as previous example, plus: ,*F 


| | | 1 | { | 
jO| * | -O- | 1] SYM | sUB | cTL | 


t.J——1L-—_—-—~——L-—L 1 Ld 


012 3 15 16 17 31 32 47 48 63 
* (See above) 
SYM (See above) 
CTL (See above) 


SUB This 15-bit (<32,768) field contains 
the subscript relntive to the data name 
that is to be checked. 


Pritt ot ¢ | tt tt tot 
fofO{O] Of By cl 2] Ef O} Of OF 2| 
L-4Lede ted ddd hd ds 
0 4 8 12 16 20 24 28 32 36 40 44 


Note: In the following examples the for- 
mats defined in 1, 2, or 3 above remain the 
same as a function of conditions except for 
bit 0 and the last 15-bit field. Bit 0 
will indicate whether the literal to be 
processed is implicit (1) or explicit (0). 
The last 15-bit field will contain function 
information for the literal processing. 

4. Process Implicit Literal: ( )¥*TZ(9) 
Note: Z in the above example is a user- 
given function code and will be reflected 
in the F field below according to the 
following table. 

If Z A (Abort) then F = 00 
Cc (Continue) = O01 
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P (Phrase) 
b (List) 


Hol 
= 
- 


tl 


{ | | 
ji] SAME AS 1, 2 OR 3 | F | 


F See above table. 


SUB This 14-bit (<16,384) field contains 
the subscript relative to the start of 


the communication array that contains 
the literal to be processed. 
5. Process Explicit Literal: 
( )*TZ‘LITERAL‘ 
[ 
}O| SAME AS 1, 2 OR 3 | F | L { Q | 
EVENS Uses vai ess as AB oon RE et re TE Ener! Seno pecan eneapee J 
01 noi 15 16 n 
F Same as example 4. 
L This 14-bit field contains the length 


of the literal in 16-bit words. 

Q This variable-length field contains the 
literal in EBCDIC packed format. 

TABLE 6 (PHRASE-DEFINED EXPRESSIONS) 

This table is made up of two sections. The 


following three examples define the format 
of the possible first-section entries: 


1. Value with Scale Factor: P+3 (7) 
=A*. 017453... 
{ { 1 | { | 
i} 10]f Tif P 1G| S | T | 
Losmeam Beh aes ee Sa eee aay J 
0 4.2 3 5 67 15 16 n 
I This field designates the storage mode 


of the data value. 
0 Real (floating-point) 
1 Integer (fixed-point) 


P This three-bit (<8) field designates 
the scale factor to be applied to the 


result of the expression before 
storage. 
G This bit designates the sign of the 


scale factor. 
0 = Positive 
1 = Negative 


S This nine-bit (<512) field contains the 
subscript associated with the data 
value relative to the first position of 
the communication array. 


T This variable-length field contains the 
text of the phrase-defined expression 
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terminated with a comma. The text is 
compressed to eliminate meaningless 
blanks and characters. 


| | | | { | | 
{8c{O7]| C1] 7E] C1] SC] 4B] FO] Fil... | 
Colo hoe Le Lae hee a 


0 8 16 24 32 40 48 56 64 


2. Values without Scale Factors: T(12) 
I=I*12... 

| I | | | 

| 11 |I] S [ T | 

Be 5 ae ame J 

0 12 3 15 16 n 


I See above. 


S This 13-bit (<8,192) field contains the 
subscript of the data value relative to 
the start of the systems switch area. 


T See above. 

| { i | | | | [ I | 
| EO| 16] 7E| C9| 7E| C9] 5c] F1] F2| 
Ma a 
0 8 16 24 32 40 48 56 64 


3. Value with Symbolic Subscript: (m+5) 
A,: (B>0) 
I I {| | 
{| 00 | Ss } of Cc i T | 
(ae oe fever Meee re ares feat ten eee J 
0 12 15 16 17 31 32 n 
Ss This 14-bit (<16,384) field contains 


the subscript relative to the data name 
into which the result of the expression 
evaluation is stored. 


the com- 
table 


contains 
symbol 


Cc This 15-bit field 
pressed data name in the 
code. 


Tc See above. 


i tl | | | | | [ l | 

1OOJO2] O4] OO| 7A] 4D] C2] 6E] FO] 5D] 

a a: ee Sas es Ln kc Kaaeeeen! Hearn Kenna | 
0 8 16 24 32 40 48 56 64 72 


The second portion of this table contains 
the expression area in compact literal form 
(excess blanks and characters’ eliminated). 
This portion of the table is introduced 
with a dollar sign ($). 


TABLE 7 (USER-EXIT LIST) 


This table is in a format identical to 
Table 4 and contains the program list 
defined following the keyword EXIT. The 
table, when present, always contains three 
entries. 
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TABLE 8 (VERB PROGRAM LIST) 


This table is in a format identical to 
Table 4 and contains the program list 
defined following the term VERB at phrase 
definition time. 


PLAN DYNAMIC FILE CONTROL BLOCK 


The following charts provide the content of 
the PLAN DYNAMIC file control blocks. Note 
that because of the integer word size 
differences (16-bit versus 32-bit), the 
1130 PLAN system has a different format 
from that of the System/360 OS or DOS PLAN. 
The table given below provides the format 
for the System/360 OS-DOS PLAN. 


ID(1) ID(2) 

{ | 

i} O| TTR | D | NWN | iS | 

bate doe ae 5 Cetera E Deere eer 4 

0 1 20 23 24 31 32 63 

TTR This 19-bit field contains the TTR 
of the FDR for this file. 

D This three-bit (<8) field contains 
the logical drive code for this 
file. 

N This 8-bit (<256) field contains the 
file identification number. This 
field is originally set by the user 


before issuance of the CALL FIND. 
All other fields within ID(1) are 
set as a result of CALL FIND or CALL 
WRITE operations. : 


PROBLEM LANGUAGE ANALYZER (PLAN) 


SYSTEM MANUAL 


S This 32-bit field contains the 
rent size of the file in words. 


cur 


PLAN PERMANENT FILE CONTROL BLOCKS 


This section defines the format of the 
PERMANENT (GDATA, RDATA, WDATA) file con- 
trol blocks. The file ID number is set by 
the user before issuing the CALL GDATA. 
All other fields are defined as a result of 
the CALL GDATA and are modified by CALL 
RDATA. Note that because of the integer 
word size differences (16-bit versus 32- 
bit), the 1130 PLAN system has a_ different 
format from that of the System/360 OS or 
DOS PLAN. The table given below provides 
the format for the System/360 OS/DOS PLAN. 


System/360 OS-DOS PLAN 


ID(1) ID(2) 

| | | | 

| 00 | VF | D | N | S | 

1 ah ee i arene ee oer iets 7] ne eee finer eres J 

0 7 8 15 16 23 24 31 32 63 

D This eight-bit (<8) field indicates 
the logical drive code as 0-7. 

N This eight-bit (<64) field contains 
the number of the file. 

Ss This 32-bit field contains the size 


of the file in 32-bit words. 
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SYSTEM/360 PLAN FLOWCHART NARRATIVES 


The following flowchart narratives are 
intended to provide additional detailed 
information about the logic of the com- 
ponents of the PROBLEM Language Analyzer 
System. The labels used in the narratives 
are the same labels as are displayed above 
the upper left corner of the blocks on the 
component flowcharts and represent the 
identification field of the program source 
statements containing the represented 
logic. Additional useful information is 
given at the beginning of each identifiable 
program item. 


BREAK 


The BREAK subroutine may be called to 
separate four bytes of any FORTRAN word 
into the right-justified byte of a four- 
word integer FORTRAN array. 


BRE250 The registers are saved and the 
argument list is accessed. 

BRE270 The FROM word address is 
accessed. 

BRE280 The word is divided into four 


bytes which are placed in the 


user-specified array. 


BRE340 The registers are restored and 
processing is terminated by 
return to the calling program to 
the next executable statement. 


S$SBDFID (DOS) 


This is a DOS transient area routine which 
is invoked by the PLAN loader on a phrase 
abort error if the DUMP option is’ selected 
at initialization time. 


$BA330 The 
argument for the 


base register is set and the 
dump are 


accessed. 
$BA510- 
$BA810 The dump header line is’ con- 
structed and printed. 
$BA890- 
$BA1250 Thirty-two characters are _ for- 
matted into hexadecimal and 
printed. 
$BA1270- 
$BA1310 A test is made to check if the 
last line printed was at the end 
of the partition. If yes, 
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transfer is to $BA1 430. 
Otherwise, a test is made to 
suppress like lines and transfer 


is to $BA1250 to suppress and to 
$BA890 to print the next line. 


$BA1430- 
$BA1470 The dump trailer is printed and 
control returned to the caller. 


SBDFJDO (DOS) 


This is a DOS transient area routine which 
performs initialization functions for all 
direct access files processed by PLAN. 


$BD390 The callers argument list is 
accessed. 

SBD450 Adcons within this routine are 
relocated. 

$BD690 The volume label on the disk unit 


is read to locate the VTOC. 


$BD770 The VTOC is searched for the 
specified file name. 


$BD850 The count ortion of the first 
Pp . . * 

track and record in the file is 

read to determine the block size. 


$BD910 The subroutine DFJGMAIN is called 
to obtain core for a file control 
block. 

$BD1070- 


$BD2050 The control block is completed 
and contains the DOS logical 
unit, the starting cylinder num- 
ber, the number of records per 
track, the number of records in 
the file, and the number of words 
in the file. 


$$BDFJI (DOS) 


This is a DOS transient area routine which 
alter the COMREG area phase address and 
program address. These addresses are used 
by the FORTRAN I/O package to locate buffer 
areas. 


S$BDFJSO (DOS) 
This is a DOS transient area routine which 


performs initialization functions for all 
sequential files processed by PLAN. 
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$BS450 Adcons in this module are 
relocated. 
$BS670- 
$BS1330 The subroutine DFJGMAIN is called 
to get core for the control block 
and the buffers. If core is 
available, the control block is 
initializ2d and the first buffer 
area is set to blanks. 
$BS1570- 
$BS2910 The device type is validated. It 
must be a reader, printer, punch, 
or magnetic tape. The control 
block is completed and control is 
returned to the caller. 
DFJCGET 


This subroutine controls transmission from 
and to the buffer, character-by-character 
for the PLAN sequential conversion 
routines. 


A test is made to see if the 
field has been exhausted. Tf 
not, transfer is to CGE470; 
oth2rwise a pointer to a NULL 
character is set and control is 
returned to the caller. 


CGE390 


CGE470 The field width counter is 
updated. 
CGE550 A test is made to see if the 


current character is outside the 
record area. If yes, control is 
returned to the caller. 

indicator 


CGE650 The character position 


is incremented. 


A test is made to check if the 
character position pointer is 
outside the range of the field or 
the record. If valid, transfer 
is to CGE750, otherwise, control 
is returned to the caller. 


CGE710 


CGE750 A pointer to the actual buffer 
character is set and then control 


is returned to the caller. 


DFJCNTRL (DOS) 


This module controls the issuing of STXIT 
macros by. the DOS PLAN system, and also 
provides the linkage to the TRACE routine. 
CNT470 A standard STXIT macro is issued. 


CNT490 If any other type of STXIT is 
requested, it is issued. 


PROBLEM LANGUAGE ANALYZER (PLAN) 


SYSTEM MANUAL 


A test is made to see if the 
TRACE facility has been invoked. 
If yes, this module exits to the 
DFJTRACFR module; otherwise, con- 
trol is returned to the caller. 


CNT370 


DFJCRDIR (OS) 


The DFJCRDIR subroutine provides for estab- 
lishment of an in-core program directory to 
be utilized by PLAN to provide more effi- 
cient program loading. 


DCD150 Registers are saved according to 
standard OS conventions. A _ base 
register is set. 

DCD250 If there is not a current direc- 
tory transfer is to DCD400. 

DCD280 The current program directory is 
freed. 

DCD400 The name list is initiated. 

DCD420 The CREATE CORE DIRECTORY phrase 
is read. 

DCD560 The list of program names is 
built. 

DCD630 The program name list is sorted. 

DCD850 A BLDL macro is issued for the 
program list. 

DCD920 If the BLDL macro is executed 
properly, transfer is to DCD1i040. 

DCD940 A count is made of the BLDL's 


which are in valid form. 


DCD1040 A GETMAIN is issued for the 
required core to contain the pro- 
gram directory. 


DCD1150 The BLDL entries that are valid 
are moved to the directory. 

DCD1280 A pointer is set to the top of 
free storage. The subroutine is 
terminated by return to the 
caller. 

DFJCSET 

This subroutine is a conversion interface 

routine for the PLAN subroutines PFOUT, 


PFIN, PIOUT, PIIN, and PEOUT. 
CSE1200 The base registers are set 
including the base register for 
the conversion routine and the 
conversion buffer control routine 
DFJCGET. 


FLOWCHART NARRATIVES 27 


PROBLEM LANGUAGE ANALYZER (PLAN) 


SYSTEM MANUAL 


CSE1700 


CSE2400 


CSE2700 


The NOD argument is validated. 
If the NOD argument is valid, 
transfer is to CSE2400; 
otherwise, control is returned to 


the caller. 


The buffer arguments are set into 
the DFJCGET routine for use _ by 
the conversion routines. These 
include the buffer address, the 
record length, and the address of 
the caller's save area. 


Exit from this routine is direct- 
ly to the called conversion 
routine. 


DFJDIocS (DOS) 


This module handles all the 
I/O requests 
handles requests in both the 
mode. 
processed as a byte-addressable 
characters. 
address any byte 
requests 


*move' 


mode 


direct access 
for the DOS PLAN system. It 
*locate‘ and 
All direct access files are 
string of 
*Move' mode requests may 
in the file. *Locate’ 
may only use record 


addressing. 


DI0650 


DI0690 


DIO810 


DI01010 


D1I01130 


D101290 


DI0O1490 


If this is not a write locate 
call, transfer is ti DIo810. 


The write request switch is set 
on for the last buffer read and 
control is returned to the 
caller. 


The caller's registers are saved 
and the user's argument registers 
including the displacement count 
and array address registers are 
updated. 


If this is a call to quiesce all 
I/O, transfer is to DIO3550. 


If this is not an overlay wait 
call, transfer is to DI01290. 
Otherwise, the subroutine WAIT is 
called to issued a check on the 
last I/O operation and transfer 
is to DIO3390 to return control 
to the caller. 


The I/O arguments are calculated 
from the user displacement count. 
This is done to see if a record 
read had to be done in order to 
mask in if the user displacement 
is not on the record boundary. 


A request is made to see if the 
requested record is already in a 
buffer. If not, transfer is to 
D1IO1770. 
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DIO1770 


DIO1870 


DIO2270 


DIO2390 


DIO2430 


D1I0O2470 


DIO2510 


DIO2550 


DIO02590 


DIO2710 


DIO2850 


DIO03090 


DIO03190 


DI03230 


- DIO3270 
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If this is a ‘locate* mode call, 
transfer is to DIO2270. 
This is a generalized routine 


that moves data to or from the 
user array. At completion of the 
move, transfer is to DIO3270, 


The address of the current buffer 
is set in the user save area so 
that it will be returned to him 
in register 1 and transfer is to 
DIO3390 to return to the caller. 


A test is made to see if the 
displacement argument is zero. 
If not, transfer is to DI0O2990. 


If this is a write operation, 
transfer is to DIO2850. 


A test is made to see if the 
count argument is equal to the 
record length. If yes, transfer 


is to DI0O2590. 


A test is made to see if a 
physical record will fit in the 
buffer. If not, transfer iis to 
DI02590. 


If this is not an overlap 
transfer is to DI02990. 


call, 


If this is not a ‘move' mode 
call, transfer is to DI02990; 
otherwise a read operation is 
initiated and the subroutine DOIO 
is called to start a read on the 
requested record. 


tf this is an overlap call, 
transfer is to DIO3270, 
otherwise; the subroutine WAIT is 
called to issue a check on the 
last I/O operation and transfer 
is to DIO3270. 


A write operation indicator is 
set. If the count argument 
equals the record length, trans- 
fer is to DIO2650. 


The subroutine SBUFREAD is called 
to read the record into the 
buffer. 


If this is an overlay and locate 
call, transfer is DI0O2270. 


A wait is issued on the last I/0 


operation and transfer is to 
D1I01770. 

A test is made to see if the 
count argument has’ been satis- 


fied. If 
DI01290 to 


not, transfer is to 
continue processing; 
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D1I03550- 
DIO3830 


DI03870 


DIO03950 


DIO03950 


DIO3990 


DIO4050 


DIO4#690 


DIO4810 


DFJDLOAD, 


otherwise, control is returned to 


the caller. 


This routine quiesces all I/O for 
the buffers. It checks if there 
has been a write request on ei- 
ther one of the buffers and if it 
has, the buffer is forced out. 


This is the SBUF READ subroutine. 
A read operation is set and the 
physical I/O arguments are calcu- 
lated, that is, the record 
number. 


This is the DOIO subroutine. 


A test is made to see if the 
requested record is in the file. 
If it is not, control is returned 
to the caller. 


A wait is issued on the last I/0 
operation. 


The CCW string for this I/O re- 
quest is constructed. 

The subroutine CCBSTART in the 
PLAN mainline is called to 
execute the I/O operation and 
control is returned to the 
caller. 

This is the WAIT subroutine. A 
test is made to see if the last 
I/O operation was on the 
requested record. If not, con- 
trol is returned to the caller. 


Otherwise, the subroutine CCWWAIT 
in the PLAN mainline is called to 
issue a wait on the I/O operation 
associated with the user record. 
Control is then returned to the 
caller. 


DFJSLOAD (DOS) 


This subroutine is used to fetch a relocat- 


able 


module 
able in the PLAN partition. 


to the highest address avail- 
The subroutine 


DFJGMAIN is ised to allocate memory for the 


module. 


SLO290 


SLO350 


SLO510 


If this is a call to DFJDLOAD, 
transfer is to SLO590. 


A search is made of the PSCB 
table to check if the program is 
already in core. If not, trans- 
fer is to SLO590. 


The entrypoint of the program is 
placed in GPR1 and control is 
returned to the caller. 


SLO610 


SLO630 


SLO810 


SLO890 


SLO910 


SLO1370 


SLO1410 


SLO1450 


DFJDSLL 


PROBLEM LANGUAGE ANALYZER (PLAN) 


SYSTEM MANUAL 


The subroutine DIRLOOKU in the 
loader is called to search the 
DOS core image library directory 
for the named program. 


If the name was not found in the 
directory, transfer is to 
SLO1450. 


The subroutine DFJGMAIN is called 
to allocate core for the named 
module, 

If core is not available, trans- 
fer is to SLO1450. 


The PCB chain in 
include the PCB for 
to be loaded. 


updated to 
the program 


The subroutine DLOADP in the 
loader is called to load the 
program. 

The users registers are restored 
and control is returned to the 
caller. The entrypoint of the 


loaded program is placed in GPRI1. 


GPR1 is reset to indicate a fail- 
ure to load and transfer is to 
SLO1410. 


This routine manipulates a pseudo accumula- 


tor 


routines, DFJPFOUT, DFJPEOUT, 


DSL630 


DSL650 


DSL690 


DSL950 


DSL1250 


DSL1330 


used by the floating-point conversion 


and DFJPFIN. 


The entry counter for the shift 
left routine is stepped. 

A test is made to see if the 
accumulator is full, and if yes, 
control is returned to the 
caller. 

The accumulator is shifted left 
one position. 

A test is made again to see if 
the accumulator is full, if not, 


control is returned to the call- 
er. Otherwise, the entry counter 
for the shift left routine is 
saved and then control is 
returned to the caller. 


This is the entry to shift the 
accumulator right. Pointers to 
the significant portion of the 
accumulators and the shift counts 
are set. 


A search is made to locate the 
first significant digit in the 
accumulator. 
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DSL1530 The accumulator is shifted right 
one position. 
DSL1750 A test is made to see if the 


shift is complete. This test is 
on the shift count register. If 
nonzero, transfer is to DSL1330 
to continue the shift, otherwise, 
control is returned to th: 
caller. 


DFJDUMP (OS) 


This module is ‘linked to‘ by the OS PLAN 
execution routine when a phrase abort 
occurs. 

DUM1900 The callers registers are _ saved 


and a base register set. 


DUM3000 The dump heading line is printed. 


DUM3600 The failure ID line consisting of 
the error address, the current 
PCB, and execution level is 
printed. 

DUM5900 The user's registers at abort 
time are printed. 

DUM7100 The COMMON array is printed. 

DUM9000 The active program area is 
printed. 

DUM11000 The dump trailer is printed. 

DUM11500 Control is returned to the 
caller. 


DFJFMAIN (DOS) 


This subroutine returns core to the queue 
which describes free core in the partition. 


FMA270 The length of the request is 

rounded to double-word length. 
FMA350 The free queue element chain is 
searched to locate the element to 
be used to receive the core to be 
released. 


FMA590 The free queue element chain is 
updated to reflect the addition 
of the core area. 


A test is made to see if the core 
released was above and adjacent 
to the PSCB table. If it was 
exit from this routine is to the 
subroutine DFJMPSCB to move the 
PSCB- table. Otherwise, control 
is returned to the caller. 


FMA830 
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DFJGMAIN 


This subroutine allocates free core to the 
caller. The subroutine DFJMPSCB is called 
to move the PSCB table if required. 


GMN27 0- 
GMN570 A search is made of the free area 
chain to see if an area large 
enough is’ available. If not, 
transfer is to GMN750. 

GMN630 The free area chain is updated. 

A return code and the address of 
the free area is set in GPR1 and 
control is returned to the 
caller. 


GMN710 


GMN750 A test is made to see if space is 
available in the program area. 
If not, transfer is to GMN710 


indicating no core found. 


The subroutine DFJMPSCB is called 
to move the PSCB table. 


GMN950 


GMN970- 
GMN1050 A test is made to see if any 
inactive programs in the program 
area were overlaid. If yes, the 
PSCB for these programs are 
marked as such and transfer is to 


GMN710. 


DFJISET 


This is the conversion interface routine 
for the core-to-core conversion routines, 
PCAI, PCAF, PCIA and PCFA. 


ISE1i100 The field width is calculated 
based on the mode of the subrou~ 
tine called and the user's width 
arguments. 

ISE1600 The buffer arguments are set into 
the DFJCGET routines for the con- 
version routines. These include 
the address of the buffer and the 
length of the buffer, plus the 
address of the caller's save 
area. 


Exit from this routine is direct- 
ly to the conversion routine. 


ISE2200 


DFJLLIST (OS) 


The DFJLLIST module provides for processing 
of the program load list. 
DLL140 Registers are saved according to 
standard OS convention. Base 
register is set. 
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DLL230 If a list is not found to be 
present transfer is to DLL4&70. 


DLL280 Current modules are deleted from 


the list. 


A FREEMAIN macro is issued for 
that core occupied by the current 
list. 


DLL350 


DLL470 The CREATE LOAD LIST phrase is 


read. 


SCAN is initiated to search out a 
left parenthesis. 


DLL530 


DLL560 If the current end of the phrase 
has not been processed transfer 
is to DLL670. 


DLL580 The load list pointer is reset. 


DLL600 A pointer is. set to the top of 
free storage. Subroutine is ter- 
minated by return to the user. 

DLL670 


The current list entry is zero 


and transfer is to DLL580. 


A list 
is built. 


DLL710 of names from the phrase 


DLL780 The list of names is sorted. 


DLL990 A BLDL macro is issued to process 
the required names. If the BLDL 
macro is executed properly trans- 
fer is to DLL1200. 
DLL1110 The list of names is optimized to 
exclude items which were not pro- 
cessed properly by the BLDL 
macro. 
DLL1200 The named modules are loaded. 
set to 
that have 
Trans- 


The load list table is 
indicate the modules 
been loaded into memory. 
fer is to DLL600. 


DLL1300 


DFJLODER (OS) 


The DFJLOADER module contains the CORECLER, 
DIOCS, SIocs, and LOADER subroutines. 
CORECLR is the core management routine and 
controls the managed free storage area. 
DIOCS is the direct access IOCS routine for 
the PLAN system and processes READ/WRITE 


requests of all system files, DYNAMIC 
drives, and PERMANENT files. SIOCS is’ the 
sequential IocS for the PLAN system and 
processes READ/WRITE requests for all 
sequentially organized files. LOADER per- 
forms part of the DYNAMIC linkedit and 


loads modules into the PLAN program area. 


CORECLER 


DLO790 


DLO890 


DLO930 


DLO10 30 


DLO1110 


DLO1190 


DLO1270 


DLO1450 


DLO1490 


DLO1630 


DLO1710 


DLO1830 


DLO1930 


DLO2110 


DLO2170 
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The CORECLER routine manages the 
free storage area by closing open 
data sets, deleting loaded pro- 
grams, and issuing FREEMAINS on 
storage obtained by problem pro- 
grams. Upon entry to this rou- 
tine, register 12 must contain 
the address of PLAN and the two 
buckets in the mainline CURTOP, 
CURBTM must contain the limits of 
core to be managed. 


If the system is currently using 
the managed free storage array, 
transfer is to DLO890, otherwise, 


control is returned to the 
caller. 
OPEN data sets are closed. The 


DADD chain is located. 


If the last DADD has been pro- 
cessed, transfer is to DLO1450. 


If DEB is in the release 
transfer is to DLO1270. 


area, 


If the DCB is in the release 
area, transfer is to DLO1270. 


If the DCB is in the program area 
that may be released, transfer is 
to DLO1270; otherwise, transfer 
is to DLO930. 


The DCB is located and closed and 
transfer is to DLO930. 


Loaded programs are deleted and 
the load list is located. 


If the end of the load list has 


been reached, transfer is to 
DLO1830. 
If the module is in the release 
area, transfer is to DLO1710; 
otherwise, transfer is to 
DLO1490. 


The module is deleted and trans- 
fer is to DLO1490. 


Free storage is released. If 
this is an MVT system, transfer 
is to DLO2110. 


All of 
area 
control is 
caller. 


core is obtained. The 
to be released is freed and 
returned to the 


The system is set in the supervi- 
sor via the subroutine STATESW. 


The SPOE chain is located. 
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DLO2210 


DLO2310 


DLO2370 


DLO2760 


DLO2750 


DLO2770 


DLO2790 


DLO3030 


DLO3070 


DIOocSsS 


DLO3690 


DLO3850 


DLO3890 


DLO4&230 


DLO4330 


DLO4350 


The next DOE is accessed. 


If this is the last DOE on this 
chain, transfer is to DLO3030. 


made to see if the 
by this DOQE 
not, 


A test is 
block described 
should be released. If 
transfer is to DLO2220. 


If this is a system subpool, 
transfer is to DLO2770. 


The system is set into the prob- 
lem state by the subroutine 
RESETN,. 

The block of core described by 


DQU is freed. 


If this block was a system sub- 
pool, transfer is to DLO2170; 
otherwise, transfer is to 
DLO2110. 


If this is not the last SPQE on 
the chain, transfer is to 
DLO2170. 


The system is reset to the prob- 
lem state by the subroutine 
RESETN and control is returned to 
the caller. 


The DIOCS subroutine is a direct 
access I0CS for PLAN. It uses 
BTAM to process all read/write 
requests. On entry to this rou- 
tine, register 3 must contain the 
address of the DCB control block. 
Register 4 must contain a rela- 
tive record displacement in 
bytes. Register 5 must contain 
the relative physical record 
number in the file. Register 6 
must contain the caller's count 
in bytes. Register 7 contains 
the caller's array. Register 12 
must point to PLAN. 


The registers are saved and the 
base is set. 


If the buffers have been primed, 
transfer is to DLO4230. 


Buffer areas are primed. 
mode 


If this is not a ‘locate' 
call, transfer is to DLO4910. 


The subroutine RINCS is called to 
search the in-core buffers to 
determine if the requested record 
is already in core. 


If the requested record is not in 
core, transfer is to DLO4&710. 
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DLO4370 


DLO4430 


DLO4470 


DLO4550 


DLO4710 


DLO4750 


DLO4790 


DLO4910 


DLO5030 


DLO5130 


DLO5150 


DLO5170 


DLO5270 


DLO6030 


DLO6070 


DLO6110 


DLO6250 


DLO6310 


DLO6330 
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The subroutine WAITCHK is called 
to issue a WAIT, if required, on 
the record area. 


If this is not a WRITE 
transfer is to DLO4550. 


request, 


The subroutine WRITE is called to 
force the buffer to be written 
out. 


restored and 
to the 


The registers are 
control is returned 
caller. 


If this is a WRITE operation, 
transfer is to DLO4&550. 


The subroutine GETBUF is called 
to obtain a buffer area. 


The subroutine READ is called to 


read the requested record into 
the buffer and transfer is 
DLO4370. 

If the user count is zero, 
transfer is to DLO4550. 

A test is made to see if the 
users array can be used, if not, 


transfer is to DLO5150. 


The record-used indicator is set 
for the buffer. 


The subroutine RINCS is called to 
see if the next requested record 
is in core. 


If the record is not in 
transfer is to DLO6490. 


core, 
Data is moved either to, or from, 
the user array. 


If this is not a WRITE operation, 
transfer is to DLO6110. 


The WRITE request indicator is 
set on for this buffer. 


If the record-used indicator is 
not on, transfer is to DLO4550. 


If look-ahead is not required for 


this file, transfer is to 
DLO6930. 
If the WRITE request indicator 


for this buffer is not. on, 
transfer is to DLO6370. 
The record is forced out and 
transfer is to DLO6930. 
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DLO6370 


DLO6490 


DLO6510 


DLO6570 


DLO6590 


DLO6690 


DLO6790 


DLO6810 


DLO6890 


DLO6930 


GETBUF 


DLO7050 © 


DLO7090 


DLO7150 


DLO7190 


DLO7250 


DLO7270 


DLO7470 


DLO7590 


The subroutine READ is called to 
read the look-ahead record and 
transfer is to DLO5270. 


The subroutine GETBUF is called 
to locate a buffer area. 


T£ the record-used indicator is 
on, transfer is to DLO6690. 


The subroutine READ is called to 
read the record into the buffer. 


The subroutine WAITCHK is called 
to issue a WAIT for the I/0 on 
that buffer and transfer is to 
DLO5270. 


A register is set so that the 
return from the 1/0 will be to 
DLO6790. If this is a WRITE 
operation, transfer is to 
DLO7590; otherwise, transfer is 
to DLO7470. 


The subroutine WAITCHK is called 
to issue a WAIT on the buffer. 
The status of the buffer is 
updated. 


The user counts and array address 
are updated. 


The record number is set and 
transfer is to DLO4#910. 


The subroutine GETBUF locates an 
available buffer from the buffer 
chain. 

The buffer chain is located. 


If the buffer is not 
transfer is to DLO7910. 


busy, 


If this is not the last buffer in 
the chain, transfer is to 


DLO7090. 
If there is not a WRITE request 
on the buffer, transfer is to 
DLO7910. 


If this is not the last buffer in 
the chain, transfer is to 
DLO7190. 


A WRITE on the buffer is forced 
and transfer is to DLO7910. 


This is the entrypoint for the 
READ subroutine. READ and BUSY 
status are set for the buffer and 
transfer is to DLO7630. 


This is the 
WRITE 


entrypoint for the 
subroutine. WRITE status 


DLO7630 


DLO7710 


DLO7910 


DLO8090 


DLO8150 


SIOCS 


DLO8950 


DLO9070 


DLO9190 


DLO9230 


DLO9330 


DLO9730 
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and NOT BUSY are set for the 


buffer. 

If the requested record number is 
in the extent, transfer is to 
DLO7710; otherwise, control is 


returned to the caller. 


The I/O operation is executed and 
control is returned to the 
caller. 
This is the entrypoint for the 
WAITCHK subroutine. A check 
macro is issued and control is 
returned to the caller. 


This is the entrypoint for the 
RINCS subroutine. The call buf- 
fers are searched for the 
requested record number. 


If an equal record number is 
found in core, a zero condition 
code is set and returned to the 
caller; otherwise, a nonzero con- 
dition code is returned to the 
caller. 


The SIOCS subroutine processes 
PLINP and PLOUT calls to the 
system. On entry to this rou- 
tine, register 1 must contain the 
address of the callers argument 
list, register 12 must contain 
the address of PLAN and register 
3 must contain the address of the 
PCB control block. 


This is the end-of-file exit for 
SIocs. The TRUE end-of-file 
indicator is set in the control 
block and exit is through the 
COMRET entry in CIOEN. 


This is the normal entry to 
SIocS. The NOD argument is vali- 
dated by calling the subroutine 
SRCHIOC and CIOEN. If the NOD is 
valid, transfer is to DLO9190; 
otherwise, control is returned to 
the caller through COMRET. 


The logical end-of-file indicator 
is reset. 


If the file has previously been 
accessed, transfer is to DLO9730. 


The internal open on the file is 
performed. This includes ini- 
tializing the record area poin- 
ters and the prime indicator. 


A test is made to see if the 
Status of the file is the same. 
If it is not, transfer is to 
DLO8950. 
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DLO9790 


DLO9890 


DLO9930 


DLO9970 


DLO10090 


DLO10130 


DLO10370 


DLO10650 


DLO10690 


DLO10770 


DLO10970 


DLO11030 


DLO11090 


DLO11190 


DLO11230 


DLO11330 


DLO11670 


DLO11810 


DLO12210 


LOADER 


A test on the device is made to 
see if it is capable of perform- 
ing the requested function. If 
it is not, transfer is to 
DLO8950. 


Tf the true end-of-file indicator 
has been previously set ‘on', 
transfer is to DLO8950. 


If this is a PLINP call, transfer 
is to DLO10970. 


If RECFM equals FA or _ FBA, 
transfer is to DLO10090; other- 
wise, transfer is to DLO10970. 


If the carrige control character 
is not equal to 1 transfer is to 
DLO10370. 

The line counter is reset and 
transfer is to DLO10770. 


The line counter is stepped. 


If the line counter is not equal 
to zero, transfer is to DLO10770. 


The logical end-of-file indicator 
is turned ‘on'. 


The carriage control character is 
set as the first character of the 
record. 


It a buffer is not available, 
transfer is to DLO11810. 


The buffer pointers are updated. 


If this is not a PLINP call, 
transfer is to DLO11330. 


If this is not a UREND record, 
transfer is to DLO11670. 


The logical end-of-file indicator 
is set and transfer is to 
DLO11670. 


The buffer area is blank. 


The current buffer address is set 
in the control block and exit is 
to the COMRET entry in CIOEN. 


The next record is read or writ- 
ten. If an end-of-file occurs, 
transfer is to DLO8950. 


The current record area pointers 
are set and transfer is to 
DLO10970. 


The LOADER subroutine is the PLAN 
program loader. On entry to this 
program, register 12 must contain 
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DLO14440 


DLO14570 


DLO14470 


DLO15110 


DLO15290 


DLO15450 


DLO15610 


DLO15750 


DLO15910 
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the address of PLAN. The name of 
the program to be loaded must be 


stored in the first eight bytes 
of the name control block. This 
subroutine performs the 


following: 


BLANK COMMON control sec- 
tion is eliminated from a 
module by relocating all 
CSECTs which originate above 
BLANK COMMON downward by the 
length of BLANK COMMON. 

2. All adcons within the module 
are relocated. Those that 
reference BLANK COMMON are 
relocated to PLAN COMMON. 

3. If a load is successful, pro- 
gram control block (PCB) is 
completed and control is 
returned to the caller. An 
error during loading causes a 
phrase abort and exit into the 
ERRABORT entry in the DFJPLAN 


1. The 


mainline. The BSAM access 
method is used to load the 
program. 

The control blocks including the 


name control block and the COMMON 
control block are initialized. 


The subroutine LLSRCH is called 
to check the load list which 
contains names of modules loaded 


into the partition to see if this 
program name is in that list. If 
it is, transfer is to DLO18210. 


A search is made of the in-core 


directory. If the name is found 
in the directory, transfer is to 
DLO15290. 

A BLDL is issued on the PLANLIB 
PDS for the module name. 

The module attributes are 
checked. 

A FIND is issued on the first 


record of the module. 


A read is issued for a ESTRLD or 
CTL record. Exit from this rou- 
tine is on the register PROCESS 
which points to either the EST 
processing routine or the RLD 
processing routine. 


This is the ESD processing rou- 


tine. If the record is not an 
ESD record, transfer is to 
DLO17230. 

If this cCSECT refers to BLANK 


COMMON, transfer is to DLO16970. 
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DLO16090 


DLO16130 


DLO16330 


DLO16590 


DLO16730 


DLO16970 


DLO17230 


DLO18210 


DLO18490 


DLO18570 


DLO18670 


DLO18890 


DLO18990 


DLO19010 


DLO19110 


DLO19170 


DLO19250 


DLO19490 


If the NOLINK option was speci- 
fied, transfer is to DLO16590. 


If the ESD type is not an SD or 
LD transfer is to DLO16730. 


An entry is made in the ENTAB 
table for this module. 


If this is not the last ESD entry 
for this record transfer is to 


DLO15910; otherwise, transfer is 
to DLO15610. 

An ERTAB1 entry is created for 
the external reference and 
transfer is to DLO16590. 

The origin and the length of the 
COMMON CSECT was saved and 


transfer is to DLO16590. 


The length of PLAN COMMON is set. 
This will be the longer of the 
values set in Switch Word 9 or 
the length of the longest COMMON 
CSECT required by any program in 
the PLAN program area. 


Core is obtained for the program 
itself. 


If the program module was named 
as an entry point in the loaded 
program list, transfer is to 
DLO19170. 


If the NOLINK PARM was 
transfer is to DLO18890. 


specified 


The entrypoint in the ENTAB 
entries for this module are 
relocated. 


A FIND is issued for the first 
text record of the module. 


The first text record is. read 


into the program area. 


If more than one text record is 
in this module transfer is to 
DLO15610. 


A check is issued on the last 


text record read. 
The module entrypoint is set in 
the name control block. 


The program control block (PCB) 
is completed from the main con- 
trol block and control is 
returned to the caller. 

A check is issued on the last 


text record read. 
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DLO19510 If this is not a CTL record 
transfer is to DLO19670. 

DLO19550 A read is issued for the next 
text record. 

DLO19570 If this is not an RLD record, 
transfer is to DLO22670. 

DLO19670 Pointers to the RLD information 
in the record are set. 

DLO19810 The adcon is located and moved to 
a work area. 

DLO20510 If the adcon was resolved by the 
linkage editor, transfer is to 
DLO22110. 

DLO20610 If the NOLINK PARM was specified, 
transfer is to DLO22490. 

DLO20750 If the adcon can be resolved, 
transfer is to DLO22110. 

DLO21810 An ERTAB2 entry is built and 
transfer is to DLO22490. 

DLO22110 If the adcon reference is COMMON, 
transfer is to DLO22790. 

DLO22310 The adcon is relocated. 

DLO22490 If this is not the last RLD entry 
in this record, transfer is to 
DLO19810. 

DLO22670 If this is an EOS or EOM record, 
transfer is to DLO19110; other- 
wise, transfer is to DLO15610. 

DLO22790 The adcon is relocated to point 
to PLAN COMMON and transfer is to 
DLO22490. 

DFJMPSCB (DOS) 

This subroutine is called by DFJGMAIN and 

DFJFMAIN. It moves the PSCB table if it 

exists. 

MPS230 The system pointer to the top and 
bottom of the free core in the 
partition are updated. 

MPS410 The PSCB table is moved to its 
new location and control is 
returned to the caller. 

DFJ PCDMP 


The DFJPCDMP module is entered as a 
DUMP, 
MANAGED command. 


of the 


result 
DUMP MANAGED and DUMP NON- 
The module requires’ the 


use Of ERASABLE COMMON. 
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PCD260 


PCD270 


PCD290 


PCD310 


PCD330 


PCD350 


PCD360 


PCD380 


PCD470 


PCD500 


PCD520 


PCD540 


PCD560 


PCD580 


PCD600 


PCD620 


The size of the managed array is 
picked up from Switch Word 10. 


The total size of the communica- 
tion array, that is the managed 
array and the nonmanaged array, 


is calculated as the size of 
common as contained in Switch 
Word 9 minus the 640-word size of 
the combined PLAN loader and PLAN 
switch words. 


The device to be used for the 
printing of the dump is picked up 
from the 12th word of ERASABLE 
COMMON. 


Double buffer set B is assigned 
to the output device. 


The printer is skipped to a new 
page. 


The heading for the switch word 
listing is set to the print area. 


The printer is spaced twice. 


The contents of the switch words 
are set to the print area in 
hexadecimal form. Eight words 
are set on the first line and 
seven words on the second line. 
The contents of the switch words 
are printed. 


The printer is spaced two lines. 


The first position of ERASABLE 
COMMON is tested to see if the 
managed array is to be dumped. A 
negative value indicates that the 
managed array only is to be 
dumped. A zero value indicates 
that both managed and nonmanaged 
arrays are to be dumped, whereas 
a positive value indicates that 
only the nonmanaged array should 
be dumped. 


The heading for the managed array 
is set to print. 


The number of words contained in 
the managed array is set £o 
print. 


The heading is printed. 

The printer is double spaced. 

A check for a no managed array is 
made. If there is no managed 
array transfer is to PCD880. 

A DO loop is initialized to dump 


eight words of the nonmanaged 
array per line. 
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PCD640 


PCD660 


PCD680 


PCD690 


PCD700 


PCD710 


PCD720 


PCD740 


PCD760 


PCD790 


PCD810 


PCD820 


PCD830 


PCD850 


PCD880 


PCD900 


PCD920 
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If this the first line of the 
Managed array dump, transfer is 
to PCD680. 


A check is made to determine if 
this line is equal to the pre- 
viously printed line. If it is, 
transfer is to PCD840. 


A pointer is set to the current 
managed array position that is to 
be dumped. 


The print position control is set 
to print position 1. 


The PHTOE subroutine is called in 
to convert the hexadecimal repre- 
sentation of the word to EBCDIC. 


The PAOUT subroutine is called in 
to set the first four characters 
to print. 


The PAOUT subroutine is called a 
second time to set the second 
four characters to print with a 
blank space between the previous- 
ly printed four characters. 


If we are at the managed array 
transfer is to PCD810. 


The print position indicator and 
the managed array indicator are 
incremented to the next group to 
be processed. 


If the entire line has not been 
set to print transfer is to 
PCD700. 


The PIOUT subroutine is called to 
set the decimal representation of 
the managed array subscript to 
print. 


The line is printed. 


A test is made to determine if 
the entire managed array has been 
printed. If it is not, transfer 
is to PCD640. 


The printer is spaced five lines. 


A test of the first postion of 
ERASABLE COMMON is made to deter- 
mine if the nonmanaged array is 
to be dumped. If it is, transfer 
is to PCcD920. 


The PCDMP module is terminated by 
a CALL LRET. 


The nonmanaged array header is 
set to the printer. 


15 JULY 1969 


PCD950 


PCD9I60 


PCD990 


PCD1010 


PCD1030 


PCD1040 


PCD1060 


PCD1080 


PcD1100 


PCD1120 


PCD1140 


PCD1170 


PCD1200 


PCD1220 


PCD1240 


The size in FORTRAN words of the 
nonmanaged array is set to print 
area. 


The nonmanaged 
printed. 


array header is 


The printer is double spaced. 


A test is made to determine if 
there is a NULL nonmanaged array. 
If there is transfer is to 
PCD900. 


The start of the nonmanaged array 
is calculated as 640 words plus 
the length of the managed array. 


A DO loop is initialized with a 
limit equal to the number of 
words in the nonmanaged array and 
an index equal to eight words are 
to be dumped on one line. 


A test is made to determine ‘if 
this is the first line of the 
nonmanaged array to be printed. 
If it is, transfer is to PcD1100. 


A test is made to determine if 
this line is equal to the pre- 
viously printed line. If it is, 
transfer is to PcD1270. 


The print position indicator is 
initialized to the beginning of 
the print line and the array 
indicator is set to the current 
position to be printed. 


The PHTOE subroutine is called to 
convert the current nonmanaged 
array position from hexadecimal 
to EBCDIC. 


The PAOUT subroutins is called to 
set the two groups of four 
characters to the print area. 


A test is made to determine if 
the last position of the non- 
managed array has been set to the 
print area. If it has transfer 
is to PcD1i240. 


The print position indicated in 
the nonmanaged array indicator 
are incremented to the next posi- 
tion to be processed. 


If eight array words are not 
currently in the print buffer 
transfer is to PcD1120. 


The PIOUT subroutine is called in 
to convert the nonmanaged array 
subscript in decimal form to the 
print area. 
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PCD1250 The line is printed. 

PCD1270 A test is made to determine if 
the entire array has been 
printed. If it is not the loop 
is incremented and transfer is to 
PCD1060. 

PCD1290 The printer is skipped two lines. 
Transfer is to PCD9OO. 

DFJPDIAG 


The DFJPDIAG module processes the informa- 
tion put into erasable COMMON by the _ SET 
LITERAL command. The information contained 
in the erasable COMMON at the time the 
module is entered is the file number, the 
file name, the drive code, the literal 
number, the number of characters in the 
literal message, and the literal text. 
PDI210 The file number is picked up 
from the erasable COMMON and 
put into the permanent file 
control block. 

PDI230 The index to the drive code 
in the erasable COMMON is 
set with a GDATA call. 


PDI240 The GDATA subroutine is 
called to open the permanent 
file that contains the lit- 
eral text. 


PDI 260 The PHOUT subroutine is 
called to write the literal 
information to the listeral 
file. 


PDI280 The PDIAG module is ter- 
mMinated by a call to LRET. 


DFJ PEDMP 


This utility module is invoked by the 
standard command DUMP ERRORS. 


PED55 The subroutine ERLST is called to 
cause the error queue file to be 
dumped. 

DFJPERRS 


This module is the error processing module 
of the OS PLAN system. 


PER160 The registers are saved according 
to standard OS conventions. 
PER290 If the error indicator is on 


transfer is to PER3180. 
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PER310 


PER320 


PER340 


PER360 


PER380 


PER450 


PER4Y80 


PERSOO 


PERS520 


PER530 


PER550 


PER580 


PER690 


PER760 


PER770 


PER770 


PER790 


PER880 


The error indicator is turned on. 


The error stack pointers within 


PFILE are reset. 


If this entry into PERRS is for 
the function of error listing 
transfer is to PER380. 


If the error processing is to be 
performed by a user-defined error 
processing module transfer is to 
PER580. 


If the specified diagnostic 
device is valid transfer is to 
PERG80O. 


The diagnostic device is. set 
equal to the standard PLAN output 
device. 


If any errors have been encoun- 
tered transfer is to PER920. 


If this entry into PERRS was not 
for the function of doing error 
listing transfer is to PER530. 


The FLUSHQUE subroutine is called 
to clean out the PLAN file con- 
taining the diagnostic messages. 


The internal counters and point-— 
ers are reset. 


Registers are restored according 
to standard OS conventions. The 
module is terminated by return to 
the caller. 


If switch word 8, that is, the 
pointer to erasable COMMON is not 
valid transfer is to PER380. 


If a pointer to erasable COMMON 
is not available transfer is to 
PER380. 


The READSTAK subroutine is called 
to read the error stack into 
memory. 


If there are any errors still to 
be processe, processin 


If there are any errors still to 
be processed, processing con- 
tinues, otherwise transfer is to 
PER530. 


The error array is built in eras- 
able COMMON. 


The user error module is’ brought 
into memory as a PLAN local and 
transfer is to PER760. 
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PER920 


PER950 


PER970 


PER980 


PER1000 


PER1030 


PER1050 


PER1060 


PER1070 


PER1080 


PER1090 


FLUSHQUE 


PER1110 


PER1130 


PER1160 


PER1190 


PER1220 


PER1230 
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If the number of error messages 
to be queued is positive process- 
ing continues; otherwise transfer 
is to PER1050. 


If the logical drive 0 does not 
exist transfer is to PER1060. 


The GETSIZ subroutine is called 
to determine the count of queued 
error messages. 


If this entry into PERRS is for 
the purpose of listing errors 
transfer is to PER1050. 


If the error message count is 
less than the number of error 
messages to be queued transfer is 
to PER1050. 


The output is set to drive 0 and 
transfer is to PER1070. 


The FLUSHQUE subroutine is called 
to process the messages from log- 
ical drive 0. 


The output device is set equal to 
the diagnostic device and trans- 
fer is to PER1070. 


The READSTKA subroutine is called 
to read the PLAN error stack. 


If there are no error messages 
remaining to be processed trans- 
fer is to PER530. 


The PRTERR subroutine is called 
to print the error messages and 
transfer is to PER1070. 


This is the entrypoint for the 


logic that processes the PLAN 
error queue. 
The GETSIZ subroutine is called 


to determine the count of the 
number of PLAN error messages to 
be processed. 


If the count of messages to be 
processed is equal to zero trans- 
fer is to PER1240. 

The error message is read. 

The output parameters are set. 
The OUTM subroutine is called to 
generate the appropriate output 
for the PLAN diagnostic. 


If there are more messages to be 
processed transfer is to PER1160. 
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PER1240 


PER1270 


GETSIZ 


PER1320 


PER1340 


PER1380 


PER1410 


READSTKA 


PER1440 


PER1490 


PER1670 


PER1790 


PER1810 


PER1870 


PER1890 


PER1910 


The RELES subroutine is called to 
release logical file 255 on log- 
ical drive 0. 


The error message file indicator 
is reset. The PERRS module is 
terminated. 


This is the entry point for the 
GETSIZ subroutine that determines 
the number of error messages 
within the PLAN file. 


If logical drive 0 exists trans- 
fer is to PER1540. Otherwise, 
processing is terminated and a 
return to the next executable 
statement is initiated. 


The FIND subroutine is called to 
do an open of logical file 255 on 
logical drive 0. 


The number of error messages con- 
tained in the file is calculated 
from the file size. 


The GETSIZ subroutine is ter- 
Minated with a return to the next 
callable statement. 


This subroutine reads the PLAN 
error stack, 
If there are error messages 


remaining to be processed from 
the error stack transfer is to 
PER1490. Otherwise, the subrou- 
tine is terminated by return to 
the next executable statement. 


The next error message is read 
from the PLAN error stack. 


The short-form portion of the 
user error array is built. 


If the 
required, 
otherwise, 
PER1870. 


long-form error array is 
processing continues, 
transfer is to 


The phrase is read into memory. 


If a literal has been supplied 
with the error message transfer 
is to PER2060. 


If the error message being proc- 
essed is not a PLAN system error 
transfer is to PER2000. 


The required literal is accessed 
from the liter table. If the 
literal is found in the table 
transfer is to PER2050. Other- 
wise, the space normally occupied 


PER2030 


PER2050 


PER2060 


PRTERR 


PER2110 


PER2140 


PER2150 


PER2220 


PER2430 


PER2650 


OUTM 


PER2730 


PER2750 


PER2800 


PER2850 


PER2860 


PER2880 


PER2910 
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by the literal of the diagnostic 
is replaced with an asterisk. 


The error module subroutine READ- 
STKA is terminated. 


The correct literal is moved to 
the user array. 


The literal indicator is set and 


transfer is to PER2030. 


This subroutine prints the error 
messages. 


If the sequence number associated 
with the current phrase is’ the 
same as the sequence number asso- 
ciated with the phrase with the 
last diagnostic transfer is to 
PER2430. 


The new sequence number is saved. 


If the user array is to be built 
in short form transfer is to 
PER2430. 

The current PLAN 
printed. 


phrase is 
The error message line is set to 
the print area. 


OUTM subroutine is called to 
and the 


The 
output the print line 
subroutine is terminated. 


This subroutine is called to gen- 
erate the output of the error 
message. 


If the output is not to be placed 
on logical drive 0, file 255 
transfer is to PERI800. 


The message is written to logical 
file 255 on logical drive 


If an end-of-file has not been 
processed on the diagnosticdevice 
transfer is to PER280. 


The skip count is set to one. 

If a carriage control character 
is not required transfer is to 
PER2920. 

The PCCTL subroutine is called to 
effect the necessary carriage 
control. 

The carriage control character is 
reset. 
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PER2920 The PAOUT subroutine is called to 
transmit the user error array in 
the print buffer. 

PER2950 The PLOUT subroutine is called to 
print the diagnostic line. The 
subroutine is terminated by 
return to the caller. 


This subroutine is called when an 
error is found or processing 
within the error module. 


ERRINPER 


PER3180 A diagnostic message is generated 
to indicate that error processing 
cannot continue. 

PER3240 The necessary internal indicators 


are reset. 


PER3260 The phrase abort indicator is 
set. Ther error processing is 
terminated by transfer to 
DFJPLAN. 


DFJPFDMP 


This module is used by the standard PLAN 
commands DUMP PERMANENT and DUMP DYNAMIC to 
dump GDATA and FIND type files to the PLAN 
output device. Information about the file 
to be dumped is placed in ERASABLE COMMON 
by the appropriate command as follows: 


Word 1 = File number 
Word 2 = Second word of file control 
block 
Word 3 = File dump start address 
Word 4 = File dump end address 
Word 5 = Logical drive of file 
Word 6-12 = Header ‘Length Drive File’ 
Word 13-15 = File name (PLAN Literal Form) 
Word 16 = File type switch 
0 - PERMANENT file 
1 - DYNAMIC file 
Halts: None. 
Error Conditions: None. 
Subroutines: 
Monitor: FLDX, FSTOX, and SUBSC 
PLAN: PDBFA, PLOUT, PAOUT, PIOUT, GDATA, 


FIND, RDATA, READ, 
PCCTL, and LRET 
Switches: Word 16 of ERASABLE COMMON is 0 
for a PERMANENT file dump and 1 for a 

DYNAMIC file dump. 


PCOMP, PHTOE, PEOF, 


PFDMP- 

PFD250 The output device number 
requested by the command is 
picked up from the 16th word of 
ERASABLE COMMON. 

PFD270 The record size is set to 0, the 
first line switch tested at 
PFD820 is turned on and the numb- 
er of equal lines counter used at 
PFD1230 is set to 0. 
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PFD320- 
PFD330 


PFD370 


PFD400- 
PFD460 


PFD475- 
PFD480 


PFD500- 
PFD520 


PFD540- 
PFD570 


PFD590 


PFD610- 
PFD690 


PFD711- 
PFD720 


PFD730 


PFD750- 
PFD790 


PFD820- 
PFD840 
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The printer is spaced five lines. 


The number of characters in the 
file name is picked up from the 
13th word of ERASABLE COMMON to 


be used in the PAOUT call at 
PFD420. 
The header for the dump is 


created and placed in the printer 
output buffer. 


If this is a DUMP PERMANENT com- 
mand, GDATA is called to open the 
file. Otherwise, FIND is called. 


If the command did not specify 
the last word of the file to be 
dumped, then the length of the 
dump is set to the total file 
size found in ID(2). 


The length of the file to be 
dumped is placed in the printer 
output buffer, the header record 
is printed, anda blank line is 
printed to 2ffect a double space. 


If the file did not exist or the 
length specified to dump is 0, 
transfer is to PFD1140. 


The number of words left to be 
dumped is divided by 160 to 
determine if 160-word record can 
be read. If not, the partial 
record size is calculated. If 
there is nothing to be read, 
transfer is to PFD1140. 


RDATA is called for a PERMANENT 


file or READ is called fora 
DYNAMIC file. 

The loop initiated here will 
process the number of lines (8- 


word records) just read in. 


If this is the last record to be 
read from the file, then the 
number of words to be printed in 
the last line is calculated. 


If this is the first line to be 
printed from this record, line 
count is set to 0 and transfer is 
to PFD890. Otherwise, PCOMP is 
called to compare this line with 
the line saved at PFD890, and if 
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PFD890 


PFD930 


PFD1030 


PFD1050- 
PFD1080 


PFD1100 


PFD1120- 
PFD1180 


PFD1230- 
PFD1240 


DFJPFIN 


they are equal, transfer is to 


PFD1230. 


This print line is saved for the 
compare in PFD870. 


The print line is converted to 


hexadecimal printout form and 
placed in the printer output 
buffer. 

The file location of the first 


word in the print line is moved 
to the print buffer in the left 
hand column position. 


The line is printed and if this 
was the last line on the page, 
PCCTL is called so that the next 
call to PLOUT will skip to the 
beginning of the new page. 


If all the lines in this record 
have not been processed, transfer 
is to PFD750 to continue the 
loop. 


If the dump request has been 
fulfilled, the printer is spaced 
five lines and control is 
returned to the resident loader. 


The number of equal lines is 
incremented and if this is the 
first equal line found, transfer 
is to PFD1050. 


This subroutine converts an A4 format field 
into a floating-point FORTRAN word. 


FIA1150 


FIA1650 


FIA1690 


FIA1890 


The user arguments are accessed, 
the field width is calculated, 
and the buffer pointer and pseudo 
accumulator is initialized. 


Leading blanks are eliminated and 
the sign is collected. This is 
done by the subroutine PSCAN. 


Digits to the left of the decimal 
point are collected and placed in 
the pseudo accumulator. 


When a nonnumeric digit is found, 
a test is made to see if it is a 
decimal point. If not, transfer 
is to FIA2090. If it is, a test 
is made to see if this is the 
second decimal point. If it is 
not, the count of the digits 
above the decimal point are saved 
and transfer is to FIA1690 to 


FIA2090 


FIA2170 


FIA24&90 


FIA2910 


FIA3210 


FIA3750 
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continue collection of digits 
below the decimal point. If this 
is a second decimal point, trans- 
fer is to FIA2090. 


A test is made to see if the 
symbol E is present in the input 
Stream. If it is not, transfer 
is to FIA2170. Otherwise, the 


pointer is stepped past the E and 
the E-value sign is collected. 
The E-value itself is collected. 
The collected integers are posi- 
tioned in the pseudo accumulator 
based on the E-value and the 
actual decimal point if one was 
present. If a decimal point was 
not present, the input arguments 
are used to determine the posi- 
tion of the decimal point. 


The exponent is calculated from 
the position of the mantissa in 
the pseudo accumulator. 


The mantissa is normalized in the 
pseudo accumulator. 


are stored in the 
and exit is made to 


The results 
user array 
the caller. 


DFJPFOUT, DFJPEOUT 


This subroutine converts a 
into Al format in either E or F mode. 


word 


FOA1230 


FOA1290 


FOA1690 


FOA2210 


FOA2410 


floating-point 


This is the entrypoint for DFJ- 
PEOUT. The E-format switch is 
set. 

The user arguments are accessed. 
A test is made to see if any 
characters are to be outputted. 
If not, return is given to the 
caller. The field width and 
decimal width of the output field 
are calculated and a pseudo accu- 


mulator is cleared and 
initialized. 
The mantissa is placed into the 


pseudo accumulator. The charac- 
teristic is used to determine the 
accumulator positions used. 


The mantissa is shifted right ir 
the pseudo accumulator until the 
digit appears above the decimal] 
point. The decimal point is 
located at position 11 in the 
23-position pseudo accumulator. 


If this is a call to PEOUT or the 
E-format switch was set by the 
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FOA2510 


FOA2870 


FOA3480 


FOA3570 


FOA3650 


FOA3710 


FOA3810 


FOA3850 


FOA4070 


FOA4170 


FOA4210 
FOA4250 


FOA4370 


FOA44&90 


FOA4730 


PFOUT routine because of insuffi- 
cient space, transfer is to 
FOA4730. 


The rounding factor is computed. 
This is based on the number of 
digits to the right of the deci- 
mal point. 


The rounding factor which has 
been calculated is added to the 
Mantissa. 


A test is made to see if there is 
enough room in the output field 


for the requested format. If 
not, transfer is to FOA1230 to 
set the E-format switch and try 


and output the number in E_ for- 
mat. Otherwise, transfer is to 
FOA3570. 


A test is made to check if lead- 
ing blanks are required. If not, 
transfer is to FOA3710. 


Leading blanks are placed in the 
output field. 


If the input floating-point num- 
ber was negative, a minus sign is 
outputted. 


A leading zero is outputted if 
required. This can be caused if 
the rounded value is less than 1. 


Characters to the left of the 
decimal point are outputted. 


Characters to the right of the 
decimal point are outputted. 


If this is not E format, transfer 
is to FOA4S630. 


An EBCDIC E is outputted. 
The E-value is calculated. 


The sign of the E-value is 


outputted. 


The E-value itself is outputted 
and control is returned to the 
caller. 


A test to see if there is enough 
room in the output field for E 
format. If yes, transfer is to 
FOA5290; otherwise, a test is 
made to check if thare is enough 
room for normal format. If yes, 
transfer is to FOA5290. Other- 
wise, the output field is filled 
with asterisks and control is 
returned to the caller. 
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This module provides maintenance capability 


for a language dictionary (PFILE). 
alter or 
dictionary. 
tion is 


add, 


stored. 


It will 

phrase from the 
Syntax verifica- 
each phrase is 


delete a 
Logical and 
performed before 


The system error module (DFJPERRS) 


is called to log any required diagnostics. 


This 


program 
list for the 


is specified in the program 
standard PLAN commands’ ADD 


PHRASE, ALTER PHRASE and DELETE PHRASE. 


PHR38 


PHR70 


PHR82 


PHR84 


PHR86 


PHR88- 
PHR104 


PHR110 


PHR112 


PHR116 


PHR1i18 


PHR120- 
PHR128 


The base registers are set and 
various constants, switches, and 
table areas are initialized. 


The operation ADD, ALTER, or 
DELETE is determined from the 
value found in ERASABLE COMMON 
(1). The appropriate indicators 
are set in the switch 'PHRASW'. 


The subroutine COMPRESS is called 
to read the phrase image from the 


PFINPUTA record of the phrase 
dictionary file. 
A CAP subscript pointer register 


is initialized to point to the 
beginning of the managed array. 


The subscript register is incre- 
mented to the next CAP position. 


A test is made for a valid end to 
the phrase name. This must be a 
comma or a semicolon. If an 
invalid character is found, an 
error message is issued and the 
scan continues until a comma or a 
semicolon is found. If a comma 
is found, a transfer is to 
PHR1i10. If a semicolon, transfer 
is to PHR148. 


The subroutine ADVSUP is called 
to slide over the comma in the 
input stream. 


made to check if a 
Sign has been encountered 
in the input stream. If the 
current character is a dollar 
sign, transfer is to PHR548 which 
is the formula collect 
subroutine. 


A test is 
dollar 


The subroutine ALPHAC is called 
to collect the symbols and CAP 
pointer for the phrase entry. 


The subroutine CONSTANT is called 
to collect any default values. 


A test is made to see if an error 
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PHR130 


PHR132 


PHR134 


PHR138- 


PHR144 


PHR148 


PHR150 


LITERALT 


PHR168 


PHR180 


PHR180- 
PHR208 


PHR212 


occurred in collecting an Implied 
Do subscript. If an error 
occurred, an error message is 
issued. 


The subroutine LITERALT is called 
to collect any literals that may 
be present in the phrase entry. 


The subroutine CHKENTRY is called 
to collect check entries, if 
present. 


The subroutine EXPRESSC is called 
to collect phrase-defined 
expressions. 


made to see if a 
literal was found in the phrase 
entry. If a literal was found, 
the subscript pointer is set to 
the end of the literal and the 
transfer is to PHR88. 


A test is 


The subroutine STRING is called 
to collect the table together and 
build the phrase entry. 

A test is made to see if any 
errors occurred in the phrase 
scan. If no errors’ occurred, 
transfer is to the routine TUPD- 
ATE to enter the phrase in the 
phrase dictionary. Otherwise, 
exit is to the PLAN loader. 


The LITERALT subroutine tests for 


and collects phrase-defined 
literals. 
The next character in the input 


stream is checked to see if it is 
a literal delimiter. These are 


', 0, and “. If the character is 
not a delimiter, return is to the 
caller. 


The literal delimiter is saved in 


order to locate the end of the 
literal. 
The length of the literal is 


determined by scanning the input 
stream for a delimiter that is 
the same as the saved delimiter. 
A test is also made to see if 
there is a semicolon in the lit- 
eral or the length of the literal 
is zero. In either case, an 
error message is issued and 
return is made to the caller. 


The word count of the literal is 
collected. 


PHR222 


PHR224 


PHR228 


PHR230- 
PHR240 


PHR244 


PHR248 


PHR260 


CONSTANT 


PHR27 6- 
PHR294 


PHR298 


PHR300 


PHR302 


PHR306 
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An indicator is set so that on 
return to the caller, the sub- 
script register may be incre- 
mented to the end of the literal. 


If the literal delimiter was a 
double quote indicating that the 
count is not required in this 
literal, transfer is to PHR232. 


The subroutine WSYML is called to 
write a full word of the literal 
into Table 2. 


The CAP 
incremented 


subscript register is 
and the next four 
bytes of the literal are 
collected. If this is not the 
last four bytes of the literal, 
transfer is to PHR228 to write 
the word into the table. 


A test is made to see if the last 
word of the literal contains any 
residual characters. 


The last word is 
blanks if required. 


padded with 


The end subscript of the literal 
is stored and the current sub- 
script pointer is restored and 
return is made to the caller. 


A CONSTANT subroutine collects 
Single logical values and numeric 
values both integer and REAL. 


A test is made to see if a sign 
is present in the input stream. 
If it is not, transfer is to 
PHR298; otherwise, an indicator 
is set and the subroutine ADVSUP 
is called to increment the input 
pointer past the sign. 


called 
any numeric constant 


The subroutine COLNUMT is 
to collect 
if present. 


If a valid 
collected, 


constant was 
exit is from this sub- 
routine to the WSYM subroutine 
which will store the word in the 
phrase entry in Table 2 and then 
return to the caller. 


A test for a uniary Sign or a 
Single logical value, plus or 
minus, is made. If a sign was 
present, transfer is to PHR306. 
Otherwise, return is made to. the 
caller. 

The logical value TRUE or FALSE 


depending on the sign, is set and 
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EXPRESSC 


PHR336 


PHR340 


PHR348 


PHR350 


PHR354 


PHR356 


PHR360 


PHR378 


PHR402 


PHR4#14 


PHR420 


PHR444 


PHR452- 
PHR454 


PHR458— 
PHR460 


PHR462 


the 
the 


exit is from this routine to 
WSYML subroutine to store 
value into Table 2. 


The EXPRESSC subroutine scans and 


collects all phrase-defined 
expressions. 
If the input character is an 


equal or a pound sign, transfer 


is to PHR348. 


If the input character is a colon 
indicating a LOGICAL expression, 
transfer is to PHR452; otherwise, 
return is made to the caller. 


The subroutine DARITHX is called 
to scan the arithmetic 
expression. 


A test is made to check if this 
is a conditional expression and 
if yes, transfer is to PHR488. 


A pointer is set to the 
sion entry in Table 6. 


expres- 


A test is made to check if this 
subroutine is called from the 
EXPCNTRL subroutine which 
collects and scans the formula 
area. If yes, transfer is to 
PHR414. 


The subscript is validated and if 
good transfer is to PHR378; 
otherwise an error is issued. 

The symbol table 
collected. 


entry is 
The subscript and the compressed 
symbol are placed in Table 6. 


The length of the expression is 
calculated. 


The expression is moved to Table 
6. 


Return is made to the caller. 


If the next character in the 
input stream is a dollar sign 
indicating a formula number, 


transfer is to PHRU92. 


The subroutine DLOGICAL is called 
to scan the logical expression. 


A test is made to see if this 
expression is in the TRUE leg and 
if yes, transfer is to PHR488. 
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PHR468 


PHR470 


PHR472- 
PHR474 


PHR478 


PHR488 


PHR49 2- 
PHR4Y9O4 


PHR496 


PHR496-— 
PHR514 


PHR524- 
PHR534 


EXPCNTRL 


PHR552 


PHR556- 
PHR558 
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in the 
question 


If the next character 
input stream is not a 


mark indicating a TRUE leg of an 
expression, transfer is to 
PHR354. 

The conditional switch is 
inverted indicating that we are 
processing a TRUE leg. 

If the next character in the 
input stream is a dollar sign 
indicating a formula number, 


transfer is to PHR490. 


If the next character is an equal 
or pound sign indicating an 
arithmetic expression, transfer 
is to PHR348. If the character 
is a colon, transfer is PHR452. 
If none of these, an error mes- 
sage is issued and transfer is to 
PHR4&44 to return to the caller. 


If the next character is not an 
exclamation mark which denotes a 
FALSE leg, transfer is to PHR354. 
Otherwise, transfer is to PHR470 
to process the FALSE leg. 


The subroutine INTEGRI is called 
to collect an expression number. 


A test is made to see if this 
subroutine was called from the 
EXPCNTRL subroutine which pro- 
cesses the formula area. If it 
was not, an error message was 
issued and transfer is to PHR350. 


The expression number is vali- 
dated, and if incorrect, an error 
message is issued and transfer is 
to PHR350. 


This expression number is placed 
in the expression number table 
and an indicator is set to show 
that this number was referenced. 
Transfer is to PHR350. 

the 


The EXPCNTRL subroutine is 


formula expression area collect 
routine. 
If the next character in the 


input stream is not a dollar sign 


indicating the formula number, 
transfer is to PHR598. 
The subroutine INTEGER is called 


to collect the expression number. 
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PHR560 


PHR564 


PHR576 


PHR598 


PHR600 


PHR602 


PHR606- 
PHR616 


PHR620- 
PHR622 


PHR630 


PHR634 


PHR642 


If the expression number is zero, 
transfer is to PHR552 and this 
number is ignored. 


If the expression number is 
greater than 1024, transfer is to 


PHR552 and this number is 
ignored. 
The formula number table is 


accessed and if this is a 
multiply-defined number, an error 
message is issued and transfer is 
to PHR552. 


The subroutine DALPHA is’ called 
to slide over the left hand sym- 
bol of the expression. 


If a valid alphabetic symbol was 
not found, transfer is to PHR620. 


If the next character in the 
input stream is not a comma indi- 
cating the end of the expression, 
transfer is to PHRO44. 
Otherwise, the subroutine ADVPUL 
is called to slide over the comma 
and transfer is to PHR552. 


If the next character in the 


input stream is a comma indicat- 
ing the end of the expression, 
transfer is to PHR546. If the 


next character is a_ semicolon 
indicating the end of the phrase, 
transfer is to PHR656. If neith- 
er, an error message is issued 


and the input pointer is incre- 
mented to the next character. 
This routine continues to slide 


until a comma or a semicolon is 
found. 
If the next character in the 


input stream is not a left paren- 


thesis indicating a subscript 
expression, transfer is to 
PHR644. 

Subroutine DARITH is’ called to 
collect the subscripted 
expression. 

If the expression ends witha 


right parenthesis, transfer is to 
PHR642. Otherwise, an error mes- 
sage is issued and transfer is to 
PHR608 to slide to the end of the 
expression. 


called 
right 


The subroutine ADVPUL is 
to slide over the 
parenthesis. 


PHR644 


PHR648 


PHR652 


PHR656- 
PHR696 


COMPRESS 


PHR710 


PHR722 


PHR732 


PHR738 


PHR798 


PHR806 


PHR810 


DLOGICAL 


PHR832 
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Subroutine EXPRESSC is called to 
collect the expression and put it 
in Table 6. 


If the next character in the 
input stream is a comma, indicat- 
ing the end of the expression, 


but not the end of the phrase, 
transfer is to PHR546. 

If the next character in the. 
input stream is not a semicolon, 


transfer is to PHR606 to issue an 


error message and continue’ the 
processing. 

The formula number table is 
scanned and error messages are 
issued for all referenced and 
undefined formula numbers, and 


defined and unreferenced numbers. 
Exit from this routine is to 
PHR148. 


The COMPRESS routine reads_ the 
phrase image from PFINPUTA record 
of the phrase dictionary, com- 
presses the phrase name, and 
collects the checksum. 


The subroutine READ is called to 
read the input statement from 
disk. 

Subroutine ADVSUP is called to 
slide over the command. 

A test is made to see if the 
command ends with a colon. Tf 
not, transfer is to PHR810 to 


issue an error message. 


The phrase name is collected and 
the checksum is computed. 


A test is made to see that the 
phrase name is terminated proper- 


ly with either a comma or a 
semicolon. If not, transfer is 
to PHR810 to issue an error 
message. 


A test is made to see if any name 
at all was collected and if yes, 
exit is to the caller. 


An error message is issued and 
transfer is to ABORTEND to ter- 
minate the processing of this 
phrase. 


The subroutine DLOGICAL performs 


a diagnostic scan on logical 
expressions. 
The ADVPUL subroutine is called 


to slide over any NOT symbol. 
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PHR838 


PHR848 


PHR850 - 
PHR856 


PHR860 


PHR868 


PHR872 


PHR888 


PHR892 


PHR896 


PHR9OO 


PHR9IO4Y 


PHR910 


PHR916 


The next character in the input 
stream is not an EBCDIC left 
parenthesis indicating an expres- 
sion, transfer is to PHR910. 


ADVSUP is called 
the left 


The subroutine 
to slide over 
parenthesis. 


character in the 
input stream is a BCD left 
parenthes, an error message is 
generated and transfer is to 
PHR9O4. 


If the next 


The next character in the input 
stream is not a left paren trans- 
fer is to PHR868. Otherwise, the 
arithmetic parenthesis count is 
incremented and transfer is to 
PHR848. 


If a semicolon is found in the 
input stream indicating the end 
of the phrase, transfer is to 
PHR9O4 to try a logical scan. 


If the input stream character is 
a relational operator, <, >, =, 
or # sign, transfer is to PHR9I00. 


If the input stream character is 
not an EBCDIC right parenthesis, 
transfer is to PHR848 to continue 
the scan. 


If the arithmetic parenthesis 
count is zero indicating that an 


equivalent left parenthesis has 
not been found, transfer is to 
PHRIOK4. 


The arithmetic parenthesis count- 
er is decremented and transfer is 
to PHR848. 


If the arithmetic parenthesis 
counter is zero transfer is to 
PHR996 to process a relational 
expression. 


The input pointer is restored to 
the start of the expression and 
the logical parenthesis counter 
is incremented and transfer is to 
PHR832 to begin processing anoth- 
er expression. 


The subroutine DALPHA is called 
to test for and slide over an 
alphabetic symbol if present. If 
an alphabetic symbol is not pres- 
ent, transfer is to PHR952. 


A test is made for left parenthe- 
sis in the input stream indicat- 
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PHR920 


PHR922- 
PHR930 


PHR932 


PHR940 


PHR9O44— 
PHR958 


DRELATS 


PHR996- 
PHR998 


PHR1000 


PHR10022 


PHR10034 


PHR10036 
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ing a subscript expression. If 
not, transfer is to PHR932. 


The subroutine DARITH is called 
to slide over the subscript 
expression. 

The next character in the input 


stream is checked to ensure that 


it is a right parenthesis and a 
proper end to the subscript 
expression. If it is, transfer 
is to PHR930 and the subroutine 
ADVPUL is called to slide over 
the right parenthesis. 


Otherwise, an error message is 
issued and transfer is to PHR958. 


If the next character in the 
input stream is the logical 
operator OR/AND, transfer is to 
PHR832. 


If the logical parenthesis count- 
er is zero, which indicates that 
we are not within an inner set of 


parentheses, transfer is to 
PHR958. 
If the next character in the 


input stream is an EBCDIC right 
parenthesis, the logical paren- 
thesis counter is incremented and 
transfer is to PHR930. 
Otherwise, an error message is 


issued. The input pointer is set 
to the end of the expression and 
control is returned to the 


caller. 


This is the relational expression 
evaluation routine. 


The current input stream charac- 
ter is saved and the subroutine 
ADVPUL is called to slide over 
the operator. 


If the input stream character is 
a literal delimiter ("), transfer 
is to PHR1004. 


A check is made to see if a_ sign 
is present. If it is not, trans- 
fer is to PHR1058. 


The subroutine ADVPUL is called 
to slide over the sign. 


The next input character is 
checked to see if it is a right 
parenthesis. If it is not, 


transfer is to PHR1058. 
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PHR1004 


PHR1006 


PHR1008 


PHR1014 


PHR1018 


PHR1020 


PHR1024 


PHR1026 


PHR1030 


PHR1038 


PHR1040 


PHR1044 


At this point we have determined 
that we have a Single logical 
value as the right side of a 
relational expression. The input 
pointer is restored to the begin- 
ning of the expression. 


The subroutine ADVPUL is called 
to slide over the input operator. 


The subroutine DALPHA is called 
to test for and slide over the 
alphabetic symbol. If the alpha- 
betic symbol is not present, 
transfer is to PHR1072. 


The next character is checked to 


see if it is a left parenthesis 
and if not, transfer is to 
PHR1026. 

The subroutine DARITH is called 
to slide over the subscript 
expression. 


A check is made for a proper end 
to the expression. The next 
character in the input stream 
must be an EBCDIC right parenthe- 


sis. If not, transfer is to 
PHR1072. 

The subroutine ADVPUL is called 
to slide over the right 
parenthesis. 

A check is made to see that the 
input stream character is the 
same as the operator that was 
saved on entry to this routine. 


This ensures that the scan has 
returned to the correct position 
in the input stream. If these 
characters are not equal, trans- 
fer is to PHR1072. 


A check is made to see if the 
input character is an equal or a 
pound sign which are the only 


‘valid operators for a single log- 


ical value relational. If not, 
transfer is to PHR1072 to issue 
an error. 


Subroutine ADVPUL is called to 
slide over the operator. 


The input stream character is 
checked to see if it is a double 
quote. If it is not, transfer is 
to PHR1054. 


The literal is scanned and 
checked to see if it contains a 
semicolon. If it does, transfer 


is to PHR1072. 


PHR1054 


PHR1058- 
PHR1i066 


PHR1068 


PHR1072 


PHR1076 


PHR1080 


PHR1090 


DARITH 


PHR1130 


PHR1134 


PHR1146 


PHR1148 


PHR1156 


PHR1160 
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The subroutine ADVPUL is called 
to slide over the literal delim- 
iter and transfer is to PHR1068. 


The subroutine DARITH is called 
to evaluate both sides of the 
expression. A test is also made 


to see that the input operator is 
the same as the one saved on 
entry to this routine in order to 


ensure that the input stream 
pointer is back in the correct 
place. 


A check for a closing parenthesis 
is made. If yes, transfer is to 
PHR1090. 


An error message is issued. 
If this is not a literal compare 


transfer is to PHR1090. This 
check is made by comparing the 


input character with a double 
quote. 
The literal is scanned for a 


semicolon. If the semicolon is 
found, transfer is to PHR932. 


The input stream is stepped to 
the end of the expression and 
transfer is to PHR932. 


The subroutine DARITH performs a 


diagnostic scan on arithmetic 
expressions. 

The subroutine ADVPUL is called 
to slide over the arithmetic 


operator. 


A test is made to see if the next 
character in the input stream is 
a sign. If it is not, transfer 
is to PHR1148. 
The subroutine ADVPUL is’ called 
to slide over the sign. 


A check is made to see if a left 
parenthesis is present in the 
input stream indicating a sub- 
script expression. If the paren- 
thesis is present, transfer is to 
PHR1178. 


The subroutine DALPHA is’ called 
to test for and slide overa 
symbol if present. If the symbol 
is present, transfer is to 
PHR1170. 


The subroutine COLNUMT is called 
to test for and collect a numeric 
constant, if present. If it is 
present transfer is to PHR1194; 
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PHR1170 


PHR1178 


PHR1182 


PHR1194 


PHR1214 


DARITHX 


PHR1222 


PHR1224 


PHR1236 


PHR1238 


PHR1256 


otherwise, an error message is 
issued and control is returned to 
the caller. 


A test is made on the input 
character to see if it is a left 
parenthesis. If it is not, 


transfer is to PHR1194. 


The parenthesis counter is incre- 
mented and transfer is to 
PHR1130. 


If we are processing an inner 
nest, a test is made for a_ right 
parenthesis. If a right paren- 
thesis is not present in the 
input stream, transfer is to 
PHRi164 where an error message is 
issued and control is returned to 
the caller. If the parenthesis 
is present, the parentheses 
counter is decremented and the 
subroutine ADVSUP is called to 
slide over the parenthesis. 


If an arithmetic operator is 
present in the input stream, 
transfer is to PHR1146. 


If the parentheses counter is not 
zero indicating that we are in an 
inner nest, transfer is to 
PHR1182, otherwise control is 
returnel] to the caller. 


The subroutine DARITHX performs 
the diagnostic scan on logical 
expressions. 


The subroutine ADVPUL is called 
to slide over the equal sign. 


A test 
is present in the 
If it is not, 
PHR1256. 


is made to see if a sign 
input stream. 
transfer is to 


The subroutine ADVPUL is called 


to slide over the sign. 


stream is checked for 
either a left parenthesis, an 
alpha symbol, or a numeric con- 
stant. If any of these are pres- 
ent transfer is to PHR1130 to 
process an arithmetic expression. 
If none of these are present, 
return is made to the caller. 


The input 


If the input stream character is 
not a literal delimiter, that is, 
a ', 4, or "“", transfer is to 
PHR1130 to process the arithmetic 
expression. 
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PHR1i270 


PHR1276- 
PHR1280 


PHR1288 
PHR1292 


DALPHA 


PHR1308 


PHR1316 


PHR1320 


PHR1328 


PHR1338 


PHR1340 


PHR1350 


PHR1352 


PHR1364 


ALPHAT 


PHR1372 
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The literal is scanned for a 
semicolon. If a semicolon is 
found, transfer is to PHR1i288. 


The length of the literal is 
checked. If it is not zero, 
transfer is to PHR1292 where 


return is made to the caller. 


An error message is issued. 


Return is made to the caller. 


The subroutine DALPHA tests for 
and slides over alphabetic 
symbols. 

The subroutine ALPHAT is called 


to see if the first character is 
alphabetic. If yes, transfer is 
to PHR1316; otherwise, return is 
Made to the caller. 


The first character of the symbol 
is saved so that it can later be 
checked to see if this symbol is 
a Single E. 


If this is not a 
operand, that is, an S‘ 
transfer is to PHR1338. 


subscript 
operand, 


The input stream pointer stepped 
over the subscript operand. 


The count of the characters in 
the symbol is collected. 


see if the 
characters, 


A test is made to 
symbol is over three 


and if not, transfer is to 
PHR1352. 

The subroutine PULADV is used to 
pull down and suppress extra 
characters in the symbol. 

A test is made to see if the 
symbol is ae single E. If not, 


transfer is to PHR1314 where a 
return is made to the caller. 


An error message is issued and 
transfer is to PHR1438, the 
PULADV subroutine to suppress any 
blanks following the symbol. 


The ALPHAT tests a character for 
alphabetic. 


made to see if a 
character is alpha or nonalpha. 
If it is alpha, transfer is to 
PHR1396; otherwise, return is 
made to the caller. 


A test is 
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PHR1396 


PHR1412- 
PHR1460 


VERBY 


PHR1486 


PHR1488 


PHR1500 


PHR1i504 


PHR1508 


PROGRAM 


PHR1524 


PLEVEL 


PHR1548 


PHR1550 


PHR1562 


PHR1568 


The alpha-found exit is set and 


return is made to the caller. 


The subroutines ADVSUP, SUPADV, 
ADVPUL, and PULADV are used to 
control the scanning of the input 
stream so that blanks may be 
suppressed. The subroutine 
PULADV steps the input pointer to 
the next significant character in 
the input stream and then moves 
the entire remainder of the input 
stream down over the blanks. 
This subroutine processes the 
*VERB' keyword. 


An indicator is set in the phrase 
entry to show that this is a verb 
phrase. 


A test for a program list delim- 


iter is made. If the next 
character in the input stream is 
not a comma or a semicolon, 


transfer is to PHR1522. 


A test for a valid end to the 
keyword entry is made. If the 
keyword ends with a comma, trans- 
fer is to the ADVSUP routine to 
slide over the comma. 


If the keyword is ended with a 
semicolon, transfer is to PHR112. 
An error message is issued and 
transfer is to PHR112. 


This routine processes the ‘'PRO- 
GRAM‘ keyword. 
If the character in the input 


stream is a program list delim- 


iter, that is, a quote, a comma, 
or a double quote, transfer is to 
the subroutine COLPLIST to 


collect the program list. If not 
an error message is issued and 
transfer is to PHR112. 

routine the 
keyword. 


This 
*“LEVEL‘ 


processes 


The subroutine INTEGERI is called 
to collect the level number. 


The level number is tested for 
validity, and if proper, transfer 
is to PHR1568. 


An error message is issued and a 
phrase level is set to blank. 


The level of the previous phrase 
is cleared. 


PHR1i572 


EXIT 


PHR1578 


PHR1592 


PHR1596 


PHR1600 


PHR1604 


PHR1606 


PHR1618 


CHKENTRY 


PHR1634 


PHR1638 


PHR1640 


PHR1646 


PHR1656 


PHR1660 
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The new level is placed into the 
phrase entry and transfer is to 
PHR1500. 


This routine processes the EXIT 


keyword entry. 


The user-exit program list is 
collected and placed in Table 7. 
This is done by linking N to the 
program collect routine. 


A test is made on the number of 
names in the user exit list. If 
not higher than three, transfer 
is to PHR1612. 


An error message is issued and 
transfer is to PHR112. 


A test is made to see if user- 
exit names were omitted, and if 
not, transfer is to PHR1606. 


The standard PSCAN user-exit 
names are used. These are EXIT1, 
EXIT2, and EXIT3. 

A test is made to see that all of 
the user-exit names in Table 7 
are alphabetic. If any name is 
found not to be alphabetic, 


transfer is to PHR1596 to issue 


an error message. 


If this is not the last entry in 


Table 7, transfer is to PHR1600; 
otherwise, transfer is to 
PHR1500. 

This routine tests for and 
collects all phrase check 
entries. 

If the next character in the 
input stream is not an asterisk, 


return is made to the caller. 


The subroutine ADVSUP is called 


to slide over the asterisk. 


The current subscript or pointer 
to the CAP is placed in Table 5. 


is validated. If 
PHR1556, 
message is 


The subscript 
valid, transfer is to 
otherwise, an error 
issued. 


A test is made to see if this is 
an execution-defined symbol. If 


it is not, transfer is to 
PHR1662. 
The subscript in Table 5 is set 
to zero. 
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PHR1662 


PHR1712 


PHR1724 


PHR1732- 
PHR1736 


PHR1738 


PHR1744 


PHR1762 


PHR1768 


PHR1772 


PHR1782 


PHR1784 


PHR1792 


PHR1802 


PHR1804 


PHR1812 


The check entry type R, T, or F, 
and the function code A, C, and P 
are placed into Table 7. 


A test is made to see if a 
literal is present in the check 
entry, and if yes, transfer is to 
PHR1736. 


A test is made to see if the next 


character in the input stream is 
a left parenthesis indicating a 
COMMON subscript. If it is not, 


transfer is to PHRi738. 
An indicator is set to show that 
a COMMON subscript is present. 


A test is made to see if an 
execution-defined symbol is being 


used. If not, transfer is to 
PHR1762. 
The compress symbol and the sub- 


script are placed in Table 5. 


A test is made to see if either a 
literal or a subscript was pres- 


ent. If not, transfer is 
PHR1792. 
If a literal is not present, 


transfer is to PHR1802. 


A test is made on the function 
code to see if a program list is 
present. If not, transfer is to 
PHR1824. 


The subroutine COLPLIST is called 
to collect the program list. 


If the length of the program list 
was zero, transfer is to PHR1872. 


The function code was tested to 
see if it is a pushed phrase. If 
it is not, transfer is to 
PHR1872, otherwise an error mes- 
sage is issued and transfer is to 
PHR1634 to process another check 
entry if present. 


The subroutine INTEGER is’ called 
to collect the COMMON subscript. 


A test 1s made on the next 
character in the input stream to 
see that it is a right parenthe- 


sis. If not, transfer is to 
PHR1796 to issue an error 
message. 

The subroutine ADVSUP is called 


to slide over the right 


parenthesis. 
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PHR1814 


PHR18 26 


PHR1840 


PHR1824 


PHR1850 


PHR1872 


PHR1876 


PHR1878 


COLPLIST 


PHR1904 


PHR1910 


PHR1914 


PHR19 22 


PHR1932 


PHR1940 
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The COMMON subscript is vali- 
dated. If the value is zero, or 
too large, transfer is to PHR1796 


to issue an error message; 
otherwise, transfer is to 
PHR1872. 

The literal is scanned to see if 


it contains a semicolon. Tf it 
does, transfer is to PHR1796. 


The subroutine ADVSUP is called 
to slide over the ending quote. 


The length of the literal is 
tested for zero, and if it is, 
transfer is to PHR1792 to issue 
an error message. 


The literal is moved to Table 5. 


The length of the literal is 


placed into Table 5. 


The function code is placed into 
Table 5. 

The end of the check entry in 
Table 5 is located and its 


address is saved. Transfer is to 
PHR1634 to process the next check 
entry. 


The COLPLIST subroutine collects 
program lists for the phrase 
check entries and user exit. 


The subroutine ADVSUP is called 
to slide over the program List 
delimiter. 


The subroutine ALPHAT is called 
to see if the first character of 
the name is alphabetic. If yes, 
transfer is to PHR1932 to collect 
the program name. 


A test is made to see if this is 
an empty name in the middle of a 
bank load, that is, two succes- 
Sive commas after a left paren- 
thesis. If this is the case, 
transfer is to PHR2012 to issue 
an error message. 


If this is not a bank load, a 
zero entry is created and trans- 
fer is to PHR1I948 to put the 
entry into the table. 


The program name is collected. 


If the name is not eight charac- 
ters or less, an error message is 
issued and transfer is to 
PHR1954., 
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PHR1948 


PHR1954 


PHR1958 


PHR1962 


PHR1966 


PHR1970 


PHR1974 


PHR1976 


PHR1978 


PHR1980 


PHR1982 


PHR1990- 
PHR1994 


PHR1998 


PHR2004 


The subroutine PGMNEXT is called 
to put the program name in the 
appropriate table. 


The next character in the input 
stream is checked to see if it is 
a comma indicating that another 
program name is in the list. If 
this is so, transfer is to 


PHR1904. 
A check is made to see if the 
next character in the input 


stream is the program list delim- 


iter. If yes, transfer is to 
PHR2004. 
If the program name is = an 


asterisk indicating a checkpoint 
return, transfer is to PHR1976. 


If the program name is left 
parenthesis indicating the start 
of a bank of names processing 
continues, otherwise, transfer is 
to PHR1990. 

If a left parenthesis, transfer 
is to PHR2014. 


The left parenthesis found switch 
is inverted. 


The character, either an asterisk 
or a left or right parenthesis, 
is placed in the program name 
entry. 


subroutine PGMNEXT is called 
appro- 


The 
to place the entry in the 
priate table. 


The subroutine ADVSUP is called 
to slide over the character. 


If the next character is alpha- 
betic or numeric indicating a 
program name, transfer is to 
PHR1904 to collect the next name. 
Otherwise, transfer is to PHR1954 
to test for the end of list. 


If the next character in the 
input stream is a right parenthe- 
sis, the left parenthesis found 
indicator is reset and transfer 
is to PHR1i976, otherwise an error 
message is issued. 


A test is made to see if a 
semicolon is in the program list. 
Tf not, transfer is to PHR1904 to 
process the next name on the 
list. 


The input pointer is restored to 
the semicolon. 


PHR2007 


PHR2012 


PGMNEXT 


PHR2034 


PHR2038 


PHR2042 


WSYM 


PHR2056 


PHR2074 


PHR2078 


WSYML 


PHR2102 


PRH2114 


PHR2118 


PHR2132 
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The left paren found switch is 
tested to see if it is on indi- 
cating unbalanced parentheses. 
If it is off, return is made to 
the caller; otherwise, transfer 
is to PHR2012. 


The left parenthesis found switch 
is reset and the error message is 


issued. Transfer is to PHR1980 
to test the next name in the 
list. 

This subroutine moves a program 


name to the appropriate table and 
updates the table pointer. 


A test is made to see if the 
table will overrun by making this 


entry. If it will, transfer is 
to PHR2042 to return to the 
caller. 

The program name is moved to the 


table and the table pointer is 
updated. 


Return is made to the caller. 


The WSYM subroutine formats a 
fixed or REAL value so that it 
may be placed into Table 2. 


A constant is scaled by the P- 
value factor. 


If a test is made to check if the 
constant is a fixed-point number. 
If not, transfer is to WSYML. 

half 


A fixed-point value is 


adjusted. 


This subroutine creates a Table 2 
entry which contains the symbol, 
if present, the subscript, and 
the default value. 


adjusted. If 
subscript 
reference 


The subscript is 
this is a long-form 
indicating it does not 
the switch words, a constant of 
15 is added to the switch words 
so that it is a true reference of 
the managed array. 


A test is made to check if an 
execution-defined symbol is being 


processed. If not, transfer is 
to PHR2138. 
The compressed symbol is placed 


into Table 2. 
A test is made to see if the 


subscript is an Implied Do, if 
yes, transfer is to PHR2140. 
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PHR2138 


PHRI140 


PHR2144 


PHR2152 


PHR2156 


ALPHAC 


PHR2232 


PHR2248 


PHR2254 


PHR2258 


PHR2264 


PHR2272 


PHR2276 


PHR2296 


PHR2304 


The subscript is placed in Table 
2. 


The constant value is placed into 
the table. 


A test is made to see if the 
subscript is valid. If it is, 
transfer is to PHR2152, 


otherwise, an error message is 
generated and exit is made to the 
caller. 


A test is made to see if the 
subscript was an Implied Do. a Bp & 


not, return is made to the 
caller. 

The Implied Do parameters are 
placed in a table and exit is 


made to the caller. 


collects 
symbol 


the ALPHAC subroutine 
keywords, symbols, and 
table entries. 


If the input contains a subscript 
indicated by a left parenthesis, 
transfer is to PHR2304. 


The subroutine ALPHAT is called 
to check the next character in 
the input for alphabetic. 


If not alphabetic, return is made 
to the caller. The next charac- 
ter in the input stream is tested 
to see if it is the delimiter. 
If it is not, transfer is to 
PHR2264., 


The subroutine INTEGERI is called 
to collect the user-exit number. 


The mode of the constant is 
determined. If the next charac- 
ter in the input stream is an I, 
the integer mode switch is set 
and the subroutine ADVSUP is 
called to slide over the ‘'I'. 


the 
not, 


A test is made to see if 
P-value is present. If 
transfer is to PHR2296. 


The P-value is collected. 


The next character in the input 
stream is tested to see if it is 
a left parenthesis indicating a 
subscript or an Implied Do. If 


it is not, transfer is to 
PHR2570. 
The P-value is validated and if 


transfer is to PHR2316. 
error message is 


in range, 
Otherwis2 an 
generated. 
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PHR2316 


PHR2342 


PHR2315- 
PHR2424 


PHR2430 


PHR24 38 


PHR2460 


PHR2464 


PHR2474 


PHR2476 


PHR2496 


PHR2544 
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The phrase 
set based on the mode, 
script, and the 
present. 


entry indicators are 
the sub- 
P-value if 


The user-exit number is tested, 
if present, to see if it is 
valid. If it is less than four, 
transfer is to PHR2350; 
otherwise, an error message is 
generated. 


The input stream is scanned to 
determine if an integer subscript 
is present. If it is, a subrou~ 
tine INTEGERI is called to 
collect the subscript. The value 
of the subscript is then vali- 
dated and if within range, trans- 
fer is to PHR2464. Otherwise, an 
error message is generated and 
transfer is to PHR2464. 


The subroutine DARITH is’ called 
to diagnose the subscript 
expression. 


A test is made to see if there is 
a valid end to the expression, 
that is, a right parenthesis in 
in the input stream. If yes, 
transfer is to PHR2460, otherwise 
an error message is generated and 
a check is made to see if a 
semicolon has been found in the 


input stream. If not, transfer 
is to PHR2430 to continue the 
diagnostic scan of the arithmetic 
expression. Otherwise, transfer 
is to ABORTEND to cease phrase 
processing. 

The limits of the expression in 
the input stream are saved. 
These will be used later to move 


the expression to the appropriate 
table. 


A test is made to see if an 
Implied Do is being processed. 
If not, transfer is to PHR2542. 


The subroutine INTEGER is called 
to get the ending and the incre- 
ment subscripts. 


Both subscripts are validated and 
if either is invalid, transfer is 


to PHR2544 to issue an error 
message. 

The Implied Do parameters are 
placed into the symbol entry and 


transfer is to PHR2542. 


An error message is issued and a 
test for semicolon is made. If a 
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PHR2542 


PHR2552 


PHR2558 


PHR2562 


PHR2570 


PHR2588 


PHR2596 


PHR2602 


PHR2628 


PHR2634 


PHR2666 


PHR2670 


PHR2680 


PHR2698 


PHR2702 


transfer is 
cease phrase 


semicolon is found, 
to ABORTEND to 
processing. 


A test is made to see that there 
is a valid end to the expression. 
This is a right parenthesis. If 
not, transfer is to PHR2544 to 
issue an error message. 


The subroutine ALPHAT is called 
to see if a symbol is present in 
the input stream. If it is, 
transfer is to PHR2596. 


A test is made to see if a symbol 
is required. If not, return is 
made to the caller. 


An error message is issued and 
return is made to the caller. 


The symbol that has just been 
located is checked against the 
keyword table. If a match is 
found, exit is through the sub- 
routine DALPHA which will slide 
over the symbol and transfer to 
the correct processing routine. 


A test is made to see if a symbol 
is allowed. If yes, processing 
continues at PHR2596; otherwise, 
an error message is generated. 


A symbol is collected. 
made to see if the 


a single character E. 
error message is 


A test is 
symbol is 
If it is, an 
generated]. 


SUPADV is called 
end of the 


The subroutine 
to slide past the 
symbol. 


The first three characters of the 
symbol are compressed. 


The compressed symbol is placed 
in the symbol entry. 


A symbol entry is placed in Table 
as 


A test for valid symbol subscript 
is made. If the subscript is 
valid, processing continues at 
PHR2698, Otherwise, an error mes- 
sage is issued. 


A test is made to see if any 
expressions were collected. If 
not, transfer is to PHR2566 to 
return to the caller. 


The expression that was collected 
is moved to Table 3 and transfer 


STRING 


PHR2746 


PHR2762 


PHR2774 


PHR2782 


PHR2804 


PHR2816 


COLNUMT 


PHR2864 


PHR2920 


PHR2962 


PHR2972 


PHR3028 


PHR3038 


INTEGER 


PHR3082 


PHR3084 
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is to PHR2566 to to the 


caller. 


return 


The STRING subroutine pulls all 
of the tables that were created 
together and creates the phrase 
entry. 

Pointers are set to the tables 
and the phrase entry. 


The length of the current table 
is computed. 


The table is moved to the phrase 
entry. 


If the table was over 255 half- 
words an error message is issued. 


If this is not the last table, 
transfer 1s to PHR2762 to con- 
tinue processing. 


The size of the phrase entry is 
computed and if less than 1024 
half-words, return is made to the 
caller. Otherwise, an error mes- 
sage is issued and then return is 
made to the caller. 

REAL 


This subroutine collects 


values. 


The interger value of the numeric 
is collected. 


The integer value is floated or 
converted to floating-point form. 


A test is made to see if any 
integers were collected. If not, 
return is made to the caller. 


A check is made to see if E-value 
is present. If not, transfer is 
to PHR3056 to return to the 
caller. 


The E-value is collected and 
validated. If the E-value is 
valid, transfer is to PHR3038, 
otherwise, an error is generated 
and transfer is to PHR3056 to 
return to the caller. 


The constant is 
P-value. Return 
caller. 


scaled by the 
is made to the 


This subroutine collects 
values. 


integer 
The subroutine ADVSUP is called 
to ,slide to the delimiter. 


The integer value is collected. 
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PHR3106 


WRITE, 
READ 


ERROR 


TUPDATE 


PHR3272 


PHR3346- 
PHR3350 


PHR3358 


PHR3368- 
PHR3374 


PHR3384- 
PHR3422 


Return is made to the caller. 


The READ and WRITE subroutines 
provide proper interface to the 
PLAN DISK IOCS subroutine to pro- 
cess the phrase dictionary file. 
The registers that are used in 
phrase are saved and then the 
proper I/O parameters are set for 
the disk I/O routines. The prop- 
er routine READ or WRITE is 
called. On return from the DISK 
I/O routine, the phrase registers 
are restor2ad and return is made 
to the caller. 


The ERROR’ subroutine provides 
standard interface for processing 


phrase errors. An error indica- 
tor is turned on and may be 
tested just before the phrase 


update is made. If the ECODE has 
not been provided, it is computed 
from the cursor. The error num- 
ber and the ECODE are set and the 
error is logged by calling the 


WRITERR subroutine in the PLAN 
loader. 
This routine performs the main- 


tenance of adding or deleting 


phrases from PFILE. 


PFILE is searched for a phrase of 
the same name as the one to be 
added or deleted. Note that for 
two phrases to. be equal, their 
names must be equal and they must 
both be verbs or object phrases. 


If the phrase already exists and 
this is an ADD PHRASE operation, 
an error is given to indicate the 
phrase already exists. 


If the phrase was found and this 
is a DELETE operation, the phrase 
is marked as available space and 
transfer is to PHR3574. 


If this is a DELETE PHRASE, an 
error is given to indicate that 
the phrase to delete cannot be 
found. If it is the delete part 
Of an ALTER PHRASE, transfer is 
to PHRASOUT without giving the 
error. If this is an ADD PHRASE 
or the add section of an ALTER 
PHRASE, transfer is to PHR3384., 


This code searches the availabil- 
ity table for a space large 
enough to hold the phrase to be 
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PHR3442- 
PHR3530 


PHR3574- 
PHR3732 


PHR3738- 
PHR3792 


DFJPIDMP 


The DFJPIDMP module is entered 
result of 

pop-up list. 
the last command processed by the 
The command is currently in EBCDIC 


module. 


image in 
is, the PLAN file dictionary. 
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added. 
is found, 


If no space large enough 
an error is given. 


This code will read five records 
from PFILE and search those rec- 
ords for the best fit for the 
current phrase to be added. 


This code will combine and chain 
together free spaces in the five 
records that are currently in 
core. It also updates the avail- 
ability table to indicate the 
largest space available in each 
record. 


If this is an ADD PHRASE, the 
last phrase in the chain, or the 
PWV table is now queued to indi- 
cate that the new phrase exists. 
If this is a DELETE PHRASE, then 
the chain pointer in the previous 
phrase or the PWV table is queued 
to indicate that this phrase is 
now deleted. 


only as a 
its name being placed on the 

The module provides a dump of 
PSCAN 
PFINPUTA section of PFILE, that 
The message 


is printed on the devices indicated in the 


first position of erasable COMMON. 


There~ 


fore, switch word 8 must be set to point to 
erasable COMMON. 


PID190 


PID210 


PID230 


PID250 


PID270 


The device on which the command 
is to be listed is picked up from 
the first position of erasable 
COMMON. 

The single buffer set A is 
assigned to the device. 


The INPUT subroutine is called to 
read the image of the last phrase 
into memory. Erasable COMMON is 
not used as an input area. 


The number of characters in the 
phrase image is set to the print 
are by a call to PIOUT. 


The number of characters in the 
phrase image is used to calculate 
an account of the number of words 
that are to be set to the print 
area. 
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PID290 The position at which the phrase 
image will be placed in the print 
area is set to position 8. 

PID310 The pointer is initialized at the 
second word of the input area. 
The first word contains the 
character count of the phrase 


image. 


The PEOUT subroutine is called to 
convert four characters of the 
phrase image to the print area. 


PID330 


PID350 The pointer is incremented to the 


next word of the input area. 


A test is made to see if all 
characters of the phrase image 
have been set to the output area. 
If they have transfer is to 
PID430. 


PID370 


PID390 The print position indicator is 


incremented by four. 


A test is made to see if the 
print line is currently full. If 
it is not transfer is to PID330. 


PID410 


PID430 The line is printed. 


PID450 The print position indicator is 
reset to print position 8. 


A test is made to see if the 
entire command has been printed. 
If it is not, transfer is to 
PID330. 


PID470 


The PIDMP routine is terminated 


by a CALL LRET. 


PID490 


DFJPIIN 


This subroutine converts an AW format field 
into a FORTRAN integer word. 


IIA1050 The user arguments are accessed. 


ITA1310 Leading blanks in the field are 


skipped. 


ITA1430 If a sign is present, it is 
collected. If a negative sign 
was present, an indicator was set 
that causes the resulting number 
to be set negative for the user. 


IITA1670 The buffer pointer is slid past 
blanks after the sign if any are 
present. 

IITA1790 The integer field is collected 

and accumulated. 
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IIA2410 The result is stored in the user 
array and control is returned to 
the caller. 

DFJPIOCS 


This utility routine is invoked by the 
Standard PLAN commands INPUT and OUTPUT. 
It uses the PLAN subroutine IOCS to switch 
the PLAN input/output devices. 


Thelsubroutine IOCS is called to switch the 
PLAN devices. The subroutine LRET is 
called to return control to the loader. 


DFJPIOUT 


IOA1090 The user arguments are accessed. 


IOA1750 The user word is converted to 


EBCDIC notation. 


are moved 
Control is 


TOA2050 The EBCDIC characters 
to the output field. 


returned to the caller. 


DFJPLAN (0S) 


DFJPLAN is the mainline executive for the 
OS PLAN’ system. It resides in the first 
640 words of blank COMMON. It is always 
located at the beginning of the partition 
or region. 


PLA1930 Return is to the caller via an 
LPSW instruction. 

APPROUT This is the start I/O appendix 
subroutine which switches the 
PLAN system into the supervisor 
State. It is entered from the 
IOS supervisor. 

PLA2250 The PLAN RB is located. 


PLA2350 The WAIT gate set by the STATESW 
is opened. 


PLA2370 The PSW is saved from the RB. 

PLA2390 The PSW is altered so that on 
return from 10S the system will 
be in the supervisor state. 

PLA2410 The old SVC PSW is checked to see 
if it is the same as the PLAN’ RB 
PSW. If yes, transfer is to 
PLA2450; if not, control is 
returned to the I/O supervisor to 
abort the I/O operation. 

PLA2450 The old SVC PSW is saved. 
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PLA2490 


STATESW 


PLA2650 


PLA2670 


RESETM 


PLA2890 


RETURN 


PLA6470 


PLA6570 


PLA6630 


CLEANUP 


PLA8210 


PLA8310 


PLA8450 


PLA8690 


URENT 


The SVC PSW is altered so that on 
return from I0S the system will 
be in the supervisor state. Con- 
trol is returned to the I/O 
supervisor to abort the I/0 
operation. 


This subroutine executes the EXCP 
that causes the start I/O append- 
age to be entered. 


A WAIT gate is set. This gate is 
necessary in case the EXCP re- 
quest is queued on the channel. 


The EXCP is issued when the WAIT 
gate is turned off by the start 
I/O appendage control is returned 
to the caller in the supervisor 
mode. 


This subroutine switches the sys- 
tem back to the problem state. 


The caller's address is stored in 
the saved PSW. 


This entrypoint is the normal 
return for all PLAN modules. 
Entry occurs here from execution 
of a CALL LRET of a FORTRAN 
RETURN statement. 


The PLAN base is restored. 
return 


If this is not a local 
transfer is to PLA9830. 


The execution level, the caller's 
regs, and the caller pica element 
are restored and control is 
returned to the calling module. 
This subroutine manages the PLAN 
program area. 


The last level control block 
above the current execution level 
is located. 


The new top of the program area 
is set. 

The PCB change is truncated if 
necessary. 


DYNAMIC file FD records are 


purged if any are present in the 
program area. Exit from this 
subroutine is to the CORCLEAN 
subroutine in the module 
DFJLODER. 

This point is entered on 


execution-time reference to an 
unresolved external reference. 
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PLA8870 


PLA8910 


PLA8950 


LOCAL 


PLA9270 


PLA9330 


PLA9430 


PLA9470 


PLA9490 


NEXTLOAD 


PLA9830 


PLA9970 


PLA10070 


PLA10190 


PLA10250 


PLA10370 


PLA10470 


PLA10570 


PLA10610 
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The caller's registers are saved. 


If this is a CALL LRET, transfer 
is to PLA6470. 


The name of the external 
reference is placed in the pop-up 
program list. 


This entrypoint is entered from 
the LOCAL subroutine. 
level is 


The current execution 


incremented. 


A local control block is located. 
The LCB is located adjacent to 
and above a level control block. 
If any LCB*‘S are the 
transfer is to PLA9490. 


left, 


An indicator is set to force a 


new segment level. 


The caller‘s registers 
Status, etc. are saved in 
local control block. 


system 
the 


PLAN is entered here to load the 
next program. 


A SPIE macro is issued. 


If this is a local call, transfer 
is PLA10190. 


If any errors have occurred, that 
is, if there are any errors on 
the stack in the phrase dic- 
tionary, transfer is to PLA11550. 


If there is not an asterisk in 


the pop-up list indicating a 
checkpoint recall, transfer is 
PLA10370. 

The current execution level is 


reset and transfer is to PLA8590. 
The pop-up list is updated. 


If there is a right parenthesis 
in the pop-up list transfer is to 
PLA10190 and this entry in the 
list is ignored. 


If there is not a left parenthe- 
sis: in the list, the transfer is 
to PLA10730. 


A left parenthesis has been found 
in the pop-up list to indicate 
the start of a bank loading 
operation so the BANKA indicator 
is set on to indicate this. 
Transfer is to PLA10190. 
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PLA10730 


PLA10910 


PLA10950 


PLA11130 


PLA11350 


PLA11450 


PLA11550 


PLA11590 


PLA11670 


PLA11690 


PLA11730 


PLA11830 


PLA11850 


PLA11890 


PLA11970 


PLA12030 


PLA12150 


If this is a checkpoint recall 


transfer is to PLA14750. 


If the pop-up list contains a 
zero, transfer is to PLA16030. 


A temporary pointer to the pop-up 
list is set and saved and will be 
used as a bank load list pointer. 


If the program is not in core 
transfer is to PLA11550. This is 
determined by searching the PCB 
chain. 


If bank loading is not in prog- 
ress transfer is to PLA11730. 


If the program is located below 
the segment which is equal to the 
current execution level, transfer 
is to PLA11730. 


If the clean switch is not on, 
transfer is to PLA11690. The 
clean switch controls program 
area cleanup and free storage 
management. It is only performed 
once for every call to the 
loader. 

The clean switch is reset, that 
is, the branch is turned on. 


The subroutine CLEANUP is’ called 
to perform program area and free 
storage maintenance. 


The subroutine LOADER is called 
in the module DFJLODER to load 
the names module. 


If bank loading is in 
transfer is to PLA11970. 


progress, 


The address of the PCB for the 
program just loaded is saved. 


If the bank load start indicator 
is not on transfer is to 
PLA1 2150. 


A bank load in progress indicator 
is turned on. 


If the next entry in the pop-up 
list is a right parenthesis 
transfer is to PLA12150. 


If the next entry in the pop-up 
list is not an asterisk transfer 
is to PLA10730. 


This is the beginning of the 
final linkedit of unresolved 
external references. If we are 


at the end of the ERTAB2 or it 


PLA12310 


PLA12350 


PLA12470 


PLA12930 


PLA13030 


PLA13110 


PLA13 230 


PLA13350 


PLA13430 


PLA13490 


PLA13610 


PLA13710 


PLA13830 
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does not exist, transfer is to 


PLA13710. 

If the adcon has already been 
resolved in a previous pass 
transfer is to PLA13610. 

If this is not a bank load 


transfer is to PLA13030. 


The ENTAB‘s for programs in this 


segment are searched for a name 
equivalent to the external 
reference. If a hit is not made 


transfer is to PLA13030. 

The entrypoint is extracted from 
the ENTAB and transfer is 
PLA13230. 


Program area core is obtained for 


an unresolved adcon control 
block. 
The unresolved adcon block is 


constructed including the name of 
the adcon plus a V_ type adcon 
pointing to PLAN COMMON. 


The adcon is resolved to point to 
either the unresolved adcon block 
or the address found in the ENTAB 
entry. 


The ERTAB2 entry for this exter- 
nal reference is flagged to indi- 
cate that this adcon has been 
resolved. 


If this is the last ERTAB2 entry, 
transfer is to PLA13610. 


If the name of the external 
reference is the same transfer is 
to PLA13230; otherwise, transfer 
is to PLA13430. This is a pass 
over the ERTAB2 entries to di- 
solve all external references to 
the same name to the same unre- 
solved adcon block. 


The pointer to the ERTAB2 entries 
is stepped to the next entry and 
transfer is to PLA12150. 


The subroutine FRERT is called to 
release the ERTAB2 table. 


If a new segment level has not 
been created transfer is to 
PLA14130. A new segment is 
always created when either a pro- 
gram module is loaded or the 
local execution level goes beyond 
the number of segment levels cur- 
rently in core. 
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PLA13870 


PLA14130 


PLA14230 


PLA14&290 


PLA14470 


PLA14550 


PLA14610 


CHPTIN 


PLA14750 


PLA14790 


PLA14850 


PLA14910 


SCHPTR 


PLA15030 


PLA15090 


PLA15250 


ERRABORT 


PLA15730 


PLA15810 


ERLSTENT 


A new level control block includ- 
ing a local save area is created. 


The TRACE routine is called if 
TRACE was invoked. 
If this is not a LOCAL call 


transfer is to PLA14470. 


The execution level is incre- 
mented if necessary. This is 
done if a CALL LOCAL is executed 


which references a program that 
resides in a segment level which 
is more than greater than the 
current execution level. 


The argument register is set for 
the called program. 


All loader switches are reset. 


Exit from PLAN to enter the pro- 
gram for execution. 
PLAN 


This subroutine reloads a 


checkpoint. 


The subroutine PLANLOPF is called 
to reset the system pointers and 
status. 

If a checkpoint does not exist 
transfer is to PLA10190. 


The checkpoint note pointers CUR- 
RNOTE and PREVNOTE are updated. 


A read operation is set witha 
checkpoint bootstrap routine. 


This routine reads and writes the 
checkpoint bootstrap. It is 
called as a subroutine from the 
LCHEX subroutine. 


Any DYNAMIC file FD records in 
the program area are purged. 


The argument for DIOCS are set. 


Exit is to DIOCS to read or write 
the checkpoint. The return from 
DIOCS is set to enter the boot- 
strap itself. 


This is the entrypoint to PLAN on 
a phrase abort. 


The subroutine WRITERR is called 
to log the error onto the phrase 
dictionary. 


The phrase abort indicator is set 
for PSCAN. 


This is the entry to PLAN from 
the ERLST subroutine. 
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PLA15890 


PLA15910 


PLANLOPZ 


PLA16030 


PLA16070 


PLA16090 


PLANLOOP 


PLA16170 


PLA16250 


PLA16330 


PLA16410 


PLA16550 


PLA16570 


PLA16790 


PLA16890 


PLA17130 


PLA17230 
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DFJPERRS, the error processing 
module, is selected for 
execution. 

The pop-up list is cleared and 


transfer is to PLA16250. 


Enter here 
goes to zero. 


when the pop-up list 


The pop-up list is cleared. 


DFJPSTSV is selected for 


execution. 


If Switch Word 2 indicates that 
saved statements are being pro- 
cessed transfer is to PLA16250. 


This is the entrypoint to PLAN to 
invoke the next command. 


DFJPSCAN, the interpreter, is 
selected for execution. 

The system status is reset. This 
includes clearing any check- 
points, resetting the LOCAL 
chain, and resetting the pointers 
for managed free storage. 
PLANLOPF 


The exit from the sub-~- 


routine is set. 


If the program is in core trans- 
fer is to PLA16570. This is 
determined by searching the PCB 
chain. 


This is the entrypoint for the 
PLANLOPF subroutine and the name 
control block is cleared. 


The system status is reset 
including the address of the save 
area, the ERTAB2 if it exists, is 
released, current execution-level 
is reset to zero, and any loader 
indicators are reset. Exit from 
PLANLOPF is either to the check- 
point recall routine or back to 
the loader. 


This is the entrypoint for the 
WRITERR subroutine. The error 
message is built in a work area. 


The error message is written onto 
the phrase dictionary. 


The error 
updated and 
to the caller. 


Stack pointers are 
control is returned 


This is the FRERT subroutine. 
The ERTAB2 is released by use of 
the FREEMAIN macro and control is 
returned to the caller. 
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SPIENT 


PLA18070 


PLA18530 


PLA20130 


PLA20390 


PLA20430 


PLANINIT 


PLA21070 


PLA21370 


PLA21430 


PLA21470 


PLA21650 


PLA21870 


PLA22030 


PLA22290 


PLA22430 


PLA23850 


PLA24770 


This is the entry to PLAN on the 
program interruption which is 
controlled by the PLANSYP macro. 
Error is built from the 
PSW. 


message 


The SPIE return for OS is set and 
control is returned to the OS 
supervisor. 


The PLAN program area is cleared. 


If the data set defined by the 
PLSYSTAB DD card is old, transfer 
is to PLA16170. 


DFJPHRAS, the phrase dictionary 
Maintenance routine is selected 
for execution to add the phrase 
‘ADD PHRASES to the dictionary 
and transfer is to PLA16250. 


This is the initial 
for the PLAN system. 


entrypoint 


saved, bases 
area, and 


The registers 
are set in a 
pointers are set. 


are 
save 


A determination is made if this 
is an MVT system. It is made by 
inspecting the CVT. If this is 
not an MVT system transfer is to 


PLA21470. 


A PLAN indicator is set to show 
that this is a MVT system. 


and TIoOT 
during PLAN 


The address of the TCB 
are saved for use 
execution. 


The program pop-up list is allo- 
cated and cleared and pointers to 
the end of the list and the 
current entry are saved in the 
PLAN COMMON area. 


A special I/O save area, used by 
DIOCS is allocated. This save 
area eliminates the need fora 


Save area in PLAN subroutine. 


The EXEC card PARMS are 


collected. 


If a PARM is not valid, transfer 
is to PLA23850. 


The PARM is processed and trans- 
fer is to PLA24770. 


An invalid PARM message is typed 
and transfer is to PLA33630. 


The 
cated. 


program COMMON area is’) allo- 
This is done by using the 


PLA25650 


PLA25790 


PLA26130 


PLA26310 


PLA 26330 


PLA26350 


PLA26450 


PLA26510 


PLA26530 


PLA26550 


PLA26650 


PLA26730 


PLA26750 


PLA26770 


PLA26810 


PLA26910 


PLA27050 
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GETMAIN and FREEMAIN macros. The 
length of the COMMON area is 
either the specification in the 


PGAR PARM field or 66 per cent of 
the partition or region size. 


The module DFJLODER is’ loaded 
into the partition. 

The module DFJTRACE is loaded 
into the partition if TRACE was 
invoked. 


The subroutine TSRCHA is called 
to search the TIOT for the PLINP 
DD card. 


If there was not a hit in the 
TIOT, transfer is to PLAN26910. 


The subroutine OPENSEQ is called 
to open the PLINP data set. 


If the PLINP data set is not open 


correctly transfer is to 
PLA26910. 
The subroutine TSRCHA is called 


to search the TIOT for the 
DD card. 


PLOUT 


If there is not a hit in the TIOT 
transfer is to PLA26910. 


The subroutine OPENSEQ is called 
to open the PLOUT data set. 


If the PLOUT data set did not 
open correctly transfer is to 
PLA26910. 


The subroutine TSRCHA is called 
to search the TIOT for PLSEO DD 
cards. 


If a hit is not found in the TIOT 
transfer is to PLA27050. 
The subroutine OPENSEQ is’ called 
to open the PLSEQ data set. 


If the PLSEQ data _ set did not 
open correctly transfer is to 
PLA26650. 

A TCLOSE macro is issued on the 
data set so that the first 
reference may be either READ or 


WRITE, then transfer to PLA26730. 


An exit from PLAN is made via an 
ABEND 100. 


The subroutine TSRCHA is called 


to search the TIOT fo the PLANLIB 
DD card. 
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PLA27110 


PLA27130 


PLA27210 


PLA27710 


PLA27770 


PLA27790 


PLA27870 


PLA27910 


PLA28190 


PLA28390 


PLA29050 


PLA29310 


PLA29650 


PLA29950 


PLA30630 


PLA32210 


PLA32510 


PLA32790 


PLA32870 


Tf a hit was made in the fTIoOT 
search transfer is to PLA27210. 


The subroutine DDERR is called to 
log an error message and transfer 
is to PLA27710. 


The PLANLIB DCB is opened. 


The subroutine TSRCHA is called 
to search the TIOT for the PLSYS- 
TAB DD card. 


If a hit is made in a TIOT search 
transfer is to PLA27870. 


The subroutine DDERR is called to 
log an error message and transfer 
is to PLA29050. 


The subroutine DSCHK is called to 
check the data set specifications 
and open the PLSYSTAB data set. 


If the data set did not open 
correctly transfer is to 
PLA29050. 

The data set defined in PLSYSTAB 


DD card is old transfer is to 


PLA29050. 

The phrase dictionary is 
initialized. 

The DCB for the SIO appendage 


routine is opened. 


The PLMANFIL data set is 
if present. 


opened 


The PLCHKPT data set is opened if 
present. 


Any PERMANENT file data sets 
"PLFSYnnn' are opened if present. 
Any DYNAMIC drive ‘PLANDRVn' are 


opened if present. 


A BLDL is issued for the module 
hames DFJPSCAN, DFJPERRS and 
DFJRETN to ensure that these 
modules are locatable in the PLAN 
library PDS. If they are trans- 
fer is to PLA32790. 


The subroutine DDERR is called to 
log an error message and transfer 
is to PLA33570. 


If the NFS PARM is not present 
transfer is to PLA33390. 


The nonmanaged free storage array 
is allocated by using GETMAIN and 
FREEMAIN. A pointer to the non- 
managed free storage internal 
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PLA33390 


PLA33530 


PLA33390 


PLA33770 


PLA34090 


PLA34890 


PLA35070 


PLA35690 


PLA36310 


PLA36450 


PLA36990 


PLA37870 


PLA37910 


PLA38050 


PLA39110 


PLA39410 


PLA39550 


PLA39930 
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free queue chain is maintained in 
the PLAN COMMON area. 

An initial SPIE macro is issued. 
If no errors have occurred during 
initialization transfer is to 
PLA18470. 
Control is returned to the 0S 
supervisor. 


This is the entrypoint for the 
OPENSEQ subroutine. A GETMAIN is 
issued and a DCB is created from 
a skeleton. 


The JFCB to DCB merge is 
performed. 
If the unit for the data set is a 


disk or a transfer is to 


PLA35690. 


tape 


If the unit is not a card reader 
control is returned to the caller 
and an error indication is given. 
The open parameter field is set 
for the device type. 


The file is opened. 


The control block, for the DCB is 
completed. 


The first buffer area is cleared 
and control is returned to the 
caller. 


This is the entrypoint for the 
TSRCHA subroutine. The TIOYT is 
searched for the DD name in the 
argument. 


If a hit is made transfer is toa 
PLA38050; otherwise, control is 
returned to the caller, with an 
indication that no hit was found 
in TIOT. 


The JFCB for the DD name _ speci- 
fied is read into core and con- 
trol is returned to the caller. 


This is the entrypoint for the 
DSCHK subroutine. If the dispo- 
Sition on file is new transfer is 
to PLA41170. This is determined 
from the JFCB. 


The DSCB is’ read from the VTOC 
using the obtain macro. 

The DSCB is validated. 

The format switch 1s reset and 


transfer is to PLA41810. 
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PLA4¥1170 


PLA41710 


PLA41810 


PLA41870 


PLA4§ 2270 


PLA42610 


PLA43330 


PLA43610 


PLA43790 


DFJPLAN 


The allocation of the data set is 
validated. The DSORG specifica- 
tions must be physically 
sequential. 
The format switch is set. 
The buffers for the data set are 
allocated by using the GETMAIN 
macro. 
The control block associated with 
the data set is completed. 
If the format switch is not on 
transfer is to PLA4#3330. 
The data set is formatted using 
the QSAM access’) method. The 
values used are the FORTRAN word 
FALSE or X'7FFFFFFF*. 
Control is returned to the 
calier. 
This is the entrypoint for the 
DDERR subroutine. The error mes- 
sage requested is printed on 
PLOUT data set. 
An abort indicator is set and 
control is returned to the 
caller. 

(DOS) 


DFJPLAN is the resident loader and mainline 


control routine. 


It resides in the first 


2560 bytes of COMMON. 


ERRABORT 


PLA3370 


PLA3450 


PLA3470 


PLA6530 


PLA3630 


This is the phrase abort entry to 
the loader. It is entered by all 


subroutines when an error is 
detected. 
The error number and the ECODE 
are set. 


The phrase abort indicator is set 
for DFJIPSCAN. 


If the DUMP option was selected 
via a PLAN run control card. The 
transient DUMP routine S$$BDFJD is 
invoked to take a partition dump. 


The system status is reset 
including the pop-up list, any 
checkpoints that are in effect, 


and if any module that had been 
previously loaded contained FIND/ 
READ/WRITE, the FIND/READ/WRITE 
buffers are purged. 


The module DFJPERRS, 
processor, is selected for execu- 
tion and transfer is to PLA8930. 


the error 


DUMPLIN 


PLA3870 


PLA3890 


PLA3970 


PLA4110 


CCBSTART 


PLA3430 


CCBWAIT 


PLA4510 


PLA4590 


PLA4690 


PLA4890 


PLA5150 
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This entry is used by various 
PLAN modules to print a line on 
the current PLAN output device. 


The callers registers are saved. 


The address of the current output 
device buffer is located. 


The record area is moved to the 
output buffer. 


The SIocS routine is called to 
write the line on the output 
device and control is returned to 
the caller. 


This routine is entered by DIOCS 
and SIOCS to cause execution of 
an I/O operation. 


A switch 
is set 
PLA4510. 


indicating a start I/0 
and transfer is to 


This entry is used by SIOCS and 
DIocS to force a wait on the last 
I/O operation. 


A scan of the 
made for a 
ciated with the 
block which is 


system CCB"s is 
CCB that was asso- 
file control 
the same as the 


callers. 

If a CCB is found that is asso- 
ciated with the caller's FCB, 
transfer is to PLA4&’890. Other- 


wise, a test is made to see if 
the start I/O switch is on and if 
not, control is returned to the 
caller. 


A scan is made for a free CCB, 
and if one is found, transfer is 
to PLA¥890. Otherwise, a wait is 
issued for the last CCB in the 
String. 


A test to check if an error 
occurred on the last I/O opera- 
tion for this CCB. If no error 
occurred, transfer is to PLA5310. 
Otherwise, the error status is 
set in the caller‘s file control 
block. A test is made to see if 
a dump is in progress and if yes, 
transfer is to PLA5310 to ignore 
the error. 


A test is made to see if errors 
are allowed by the caller's file 
control block. If yes, the 
transfer is to PLA5310; other- 
wise, transfer is to PLA3450 to 
cause a phrase abort. 


FLOWCHART NARRATIVES 61 


PROBLEM LANGUAGE ANALYZER (PLAN) 


SYSTEM MANUAL 


PLA5310 


PLA5410 


SRCHIOC 


PLA5670- 
PLA6130 


DLOADP 


PLA6830 


DIRLOOKU 


PLA6690 


CLOCAL 


PLA8150 


ISEARCH 


A test is made to see if this is 
a start I/O operation and if not, 
control is returned to the 
caller. 


The start I/O switch is reset and 
the EXCP is issued and then con- 
trol is returned to the caller. 


This entry in the loader is used 
by all of the conversion control 
routines to validate the NOD 


argument for sequential files. 


This routine searches the sequen- 
tial file chain of control blocks 
to see of a NOD equivalent to the 
caller's is available. If yes, 
the address of the control block 
is returned in register 3. A 
test is also made to see if a 
file is available and not _ open. 
If the file is not open, the PLAN 
transient open routine $$BDFJSO 
is called to do an open on the 
file and then control is returned 
to the caller. 


This entry is used to loada 
program into core. The PCB must 
previously have been loaded with 
the disk address of the program 
plus its origin and end point. 


The I/O argument registers are 
set and the READ routine is 
called to load the program into 
core. Control is returned to the 
caller from the DIOCS subroutine. 


This entry is used to search the 
DOS core image directory fora 
program name. 


records are read 
and searched for the program 
name. If a hit is not found, 
control is returned to the call- 
er. If the name is found in the 
directory, the CCHR or disk 
address of the program is calcu- 
lated, and control is returned to 
the caller. 


The directory 


This entry is used by the LRET 
subroutine to clear the LOCAL 
chain. 

The LOCAL chain is cleared and 
control is returned to the 
caller. 

This entry is used by various 


routines in the PLAN system to 
locate the next entry in the PSCB 
table or the LOCAL chain. 
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PLA8390 


PLA8450 


PLA8590 


PLANLOPZ 


PLA8810 


PLA8830 


PLA8850 


PLA8870 


PLA8910 


PLA8930 


PLA9030 


PLA9310 


PLAI470 


PLA9550 


PLA9590 


PLA9610 
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A test is made to see if the PSCB 
table is present. If not, trans- 
fer is to PLA8590. 


The next PSCB table is located 
and control is returned to the 
caller. 


The next entry in the LOCAL chain 
is located and control is 
returned to the caller. 


This entry is used whenever the 
pop-up list has gone to zero or 
by subroutines that want to clear 
the pop-up list and continue to 
cause execution of DFJPSCAN. 


The pop-up list is cleared. 


If a checkpoint is in effect, the 
NOD pointing to the current 
checkpoint is reset. 

The module DFJPSTSV is’ selected 
for execution in case we are 
processing the statement SAVE. 

If we are processing SAVE state- 


ments transfer is to PLA8930. 


The PLAN interpreter, DFJPSCAN, 
is selected for loading. 


The subroutine CLOCAL is called 
to reset any local processing in 


progress and transfer is to 
PLA9590. 
The right parenthesis is floated 


up in the pop-up list and trans- 
fer is to PLA9470. This routine 
is used whenever a failure to 
load a program that is in the 
middle of a bank list or an 
asterisk in the bank list is 
encountered. 


If the next name in the pop-up 
list is not a right parenthesis, 
transfer is to PLA9550. 


reset 
bank 


The bank load switches are 
indicating the end of a 
load. 


The bank load list pointer is 
saved. 


The name of the program to be 
loaded is moved to the name con- 
trol block. 


A test is made to see if the name 
is a numeric zero. If yes, a 
branch is to PLA8810 to clear the 
pop-up list and load PSCAN. 
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PLA9650 


PLA9770 


PLA9930 


PLA9990 


PLA10070 


PLA10250 


PLA10370 


PLA10530 


PLA10590 


PLA10790 


PLA11130 


PLA11450 


PLA11530 


A test to check if the name is an 
asterisk, which is the check 
point recall, is mad>. If yes, 
transfer is to PLA13850 to reload 
the checkpoint. 


A search is made of the programs 
already in core and if the pro- 
gram is not in core, transfer is 
to PLA10250. 


If we are in the process of bank 
loading, transfer is to PLA9310 
to get the next program name from 
the pop-up list. 


The subroutine WCHECK is called 
to see if any programs in core 
have to be checkpointed. Trans- 
fer is to PLA10370. 

A test is made to see if we are 
bank loading. If yes, transfer 
is to PLA9030, otherwise, trans- 
fer is to PLA3450 to cause a 


phrase abort. 


The subroutine DIRLOOKU is called 
to search the core-image direc- 
tory for the program name. If a 
hit is not made, transfer is to 
PLA10070. 

see if the 


A test is made to 


program will overrun the parti- 
tion. If yes, transfer is to 
PLA10070. 

A test is made to see if the 
program will overlay the PSCB 
table. If yes, transfer is to 
PLA11530. 


A test is made to see if the 
program will overlay the COMMON 


area. If yes, transfer is to 
PLA10070. 
A search is made of all _ the 


programs in core and any program 
that will be overlayed by the 
program about to be loaded are 
marked as such. 

if the 


A test is made to check 


area required for the program is 
free. If yes, transfer is to 
PLA11910. 


A test is made to check if there 
is room to create a new PSCB. If 


not, transfer is to PLA11530, 
otherwise, transfer is to 
PLA11910. 


A test is made to check if we are 
bank loading. If yes, transfer 
is to PLA9030 to float the paren- 


WCHECK 


PLA11610 


PLA11910 


PLA11990 


PLA12070 


PLA12230 


PLA12250 


PLA12290 


PLA12470 


PLA12550 


RETURN 


PLA12650 


PLA12730 


PLA12750 


PLA12890 


PLA12930 
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thesis in the pop-up list and 
stop the bank loading. 


This routine is entered any time 
a program in core may be over- 


laid. It will check to see if 
any programs have to be 
checkpointed. 


A search is made of all programs 
in core to see if they must be 


checkpointed. If not, transfer 
PLA11910, otherwise, exit is to 
the LCHEX subroutine in each 
module that is to be 
checkpointed. 

A test is made to see if any 


program in core will be overlaid. 
If not, transfer is PLA12070. 


The subroutine WCHECK is called 
to checkpoint the program that is 
about to be overlaid. 


The PSCB table is extended from 
the PCB in the loader. 


The subroutine DLOADP is called 
to load the program. 


If we are in a process of bank 
loading, transfer is to PLA9310. 


The PARM's for the program to be 
called are set. 


If the TRACE option was selected 
at initialization time, the TRACE 
routine is called. 


Exit is from the DFJPLAN mainline 
to the program to be executed. 


This entrypoint is the normal 
return from all programs executed 
under the PLAN monitor. 

The PLAN base 
restored. 


register is 


The subroutine CMCLOPTB is called 
to check if any loader errors had 
occurred. 


The LOCAL return 1S traced if 
required. 

A test is made to see if any 
execution errors have occurred 
while the last program was in 
control. If not, transfer is to 
PLA13070. 

If the last module loaded was a 


LOCAL, transfer is to PLA13070. 
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PLA12970 


PLA13070 


PLA13150 


PLA13190 


PLA13230 


PLA13270 


CMCLOPTB 


PLA13390 


PLA13550 


CHKPIN 


PLA13850 


PLA13290 


PLA13930 


PLA14050 


PLA14090 


INITILP 


The module DFJPERRS, the error 
processor, is selected for execu- 
tion and transfer is to PLA8930 
to load the module. 


The pop-up list is updated. 


If the next name in the list is a 
right parenthesis, transfer is to 
PLA13070 to ignore it. 


If the next name in the list is 
not a left parenthesis, transfer 
is to PLA13270. 


The bank load indicators are 
turned on and transfer is to 
PLA13070 to get the next name in 
the list. 


The bank load list pointer is 
saved and transfer is to PLA9550 
to set the name of the program to 
be loaded. 


This subroutine checks to see if 
any loader error had occurred 
during execution of the last 
module. 

DYNAMIC file FD records are 
purged if any are in the core 
area. 

A test is made to see if an 


invalid overlay occurred of ei- 
ther COMMON or a LOCAL caller in 
a program area. If yes, transfer 
is to PLA3450 to cause a phrase 


abort. Otherwise, control is 
returned to the caller. 

This routine reloads the 
checkpoint. 

A test is made to see if we are 


bank loading and if yes, transfer 
is to PLA9030. 


The subroutine CLOCAL is called 
to clear any LOCAL processing in 
progress. 


A test is made to see if any 
programs have been checkpointed. 
If not, transfer is to PLA3450 to 
cause a phrase abort. 


The checkpoint return is invoked 
if TRACE is invoked. 


The module is reloaded and trans- 
fer is to PLA10370. 


This is the initial entry point 
to PLAN from the DOS supervisor. 
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PLA15650 


PLA16050 


PLA16510 


PLA16610 


PLA17290 


PLA17350 


PLA17450 


PLA17490 


PLA17610 


PLA17830 


PLA18410 


PLA18590 


PLA18910 


PLA19130 
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Base registers are set and a save 
area is established. 


Pointers pertaining to the size 
of the partition are set in the 
PLAN COMMON area. 


A test is made to see if an *ASGN 
PLAN control card was’ read. If 
not, transfer is to PLA17290. 


The ASGN table pointers for the 
appropriate control card type are 
updated. 


The next card is read. 
made to see if an 


or an error occurred 
If not transfer 


A test is 
end-of-file 
during the read. 
is to PLA17490. 


The card save indicator is reset 
so that the last card read will 
not be passed to PSCAN for _ pro- 
cessing and transfer is to 
PLA22570. 


A test is made to see if the card 
just read contains an asterisk in 
column 1. If it does not, it is 
not a PLAN run control card and 
transfer is to PLA22570. 


The card just read is listed on 
the output device designated by 
the SYSLST ASGN card. 


A test is made to see if this is 
a valid run control card. If 
not, transfer is to PLA16510 to 
read the next card; otherwise, 
exit is to the control card pro- 
cessing routines. 


The alternate library control 
card is processed. This includes 
determining the DOS system LOGIC- 


AL unit assignment for the 
alternate library. 

The reserve core card is pro- 
cessed. This includes determin- 
ing the length of the area 


required for the FORTRAN I/O area 
and user work area. 


The input control card is pro- 
cessed. This routine determines 
the NOD of the PLAN input device 
to be used. 


The output control card is pro- 
cessed. This card determines the 
output NOD to be used for PLAN 
output. 
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PLA19370 


PLA19570 


PLA20090 


PLA22570- 
PLA22890 


PLA23010 


PLA23590 


PLA23850 


PLA24050 


PLA24150- 
PLA24190 


PLA24470 


PLA24710 


PLA25710 


PLA26030 


The max I/O card is processed. 
This card determines the number 
of CCB*'S that will be used for 
PLAN I/0. 


The option control card is pro- 


cessed. This includes the set- 
ting of LIST, NOLIST, DUMP, 
NODUMP, PHRASE, andj TRACE 
options. 

The ASGN card is processed. This 


includes building tables for the 
designated type of file. These 
tables are processed later by the 
PARM processing routine. 


and the user work 
are allocated. 
This is done by using the subrou- 
tine DFJGMAIN which allocates 
core from the top of the parti- 
tion. Pointers are saved from 
both of these areas in the PLAN 
COMMON area. 


The FORTRAN I/O 
area, if any, 


PLAN 
the top of core. 
include DFJSIOCS, DFJDIOCS, and 
DFJCNTRL. The subroutine 
DFJGMAIN is used to obtain core 
for these modules. 


system modules are moved to 
These modules 


created. 
using the 


The system CCB‘ts. are 
Core is allocated 
DFJGMAIN subroutine. 


The program pop-up list is allo- 
cated and cleared and pointers to 


the current entry and the end of 
the list are stored in PLAN 
COMMON. 


The core image library is opened. 


If an alternate library was spec- 
ified in a control card, it is 
open. 


The module DFJIOCBS which con- 
tains the PLAN I/O assignments is 
loaded by the module DFJDLOAD. 


control cards were 
read, a merge is performed with 
the control blocks currently 
existing in the module DFJIOCBS. 


If any ASGN 


The module DFJTRACE is moved to 
the top of core if the TRACE 
option was invoked by the option 
control card. 


A test is made to see if PSCAN, 
PHRAS, and PERRS are in the core- 
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image library. If not, transfer 


is to PLA30770. 
PLA26390 All PLAN system files including 
the phrase dictionary, the check- 
point file, and the managed area 
file are opened. 


PLA26770 A check is made to see that 
DFJPFILE, which is the is the 
phrase dictionary is formatted 


correctly. If transfer is 


to PLA30770. 


not, 


PLA27010 If DFJPFILE is new, the program 
DFJPHRAS is selected for initial 
execution to bootstrap the ADD 
PHRASE phrase into the 


dictionary. 


A test is made to see if a PLAN 
command was read while attempting 
to read PLAN control cards. If 
not, transfer is to PLA13390 to 
begin execution. 


PLA27190 


The command card is listed on the 
current output device and the 
command is saved in the PFINPUTB 
record of DFJPFILE and transfer 
is to PLA13390 to begin 
execution. 


PLA27230 


PLA30770 An error message is typed on the 
console indicating that PLAN 
execution is inhibited and an 
end-of-job macro is executed 
returning control to the DOS 
supervisor. 


DFJ PLENG 
This utility routine is invoked by the 


standard PLAN command SET PAGE LENGTH, It 
uses the PLAN subroutine PLENG to set the 


number of lines per page for an output 

device. 

PLI110 The subroutine PLENG is called to 
alter the page length for the 
device. The subroutine LRET is 
called to return control to the 
loader. 

PLE130 Control is returned to the caller 
via the LRET subroutine. 

DFJPLITL 


This module is used in conjunction with the 
LIST LITERAL command to provide a listing 
of all literals stored in a PLAN literal 
file. The first six positions in the 
communication array are required for the 
storage of data from the SET LITERAL com- 
mand for use by this module. The communi- 
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cation array is also used as an input/ 
output area and a work area so that no data 
may be carried through execution of the 
LIST LITERAL command. The LIST LITERAL 
command is a Level 1 phrase which will 
automatically cause initialization of the 
managed communication array. 


Halts: None 
Errors: None 
Subroutines: GDATA, RDATA, PDBFA, PAOUT, 
PCCTL, PLOUT; NDEF, LRET, PDUMP, PIOUT, 


PEOF, SUBSC 
PLI220 The file number specified in the 
first position of the communica- 
tion array is set to the file 
control block. 


PLI240 The logical drive code index is 
set to the fifth position of the 
communication array. 

PLI260 GDATA is called to open the lit- 

eral file. 


The header of the literal file is 
read into memory at the 20th 
position of the communication 
array. 


PLI280 


PLI300 The highest literal number cur- 
rently in the literal file is 


picked up from the file header. 


PDBFA is called to initialize 
PLAN I/O and to establish a 
double buffer for the listing 
operation. 


PLI320 


PLI340 PAOUT is called to set the dump 


heading to print. 
PLI360 The dump heading is printed fol- 
lowing a skip to a new page. 
PLI390 An index is set to the next 
literal to be extracted. 


If there are no more literals to 
be extracted, transfer is to 
PLI500. 


PLI400 


PLI410 A pointer is set to the literal 


index in the literal dictionary. 


An RDATA call is issued to read 
the literal index into memory. 


PLI430 


to see if the 
literal 


check is made 
literal exists. The 
exists only if the index is a 
REAL value. The REAL value 
represents a displacement in the 
file at which the literal text 
must be found. If the literal 
does exist transfer is to PLI540. 


PLI450 A 
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PLI470 The index is incremented to the 
next literal number. 

PLI480 If there are more literals to 
process transfer is to PLI410. 

PLI500 The printer is skipped to a new 
page. 

PL1I520 An exit from the module is made 
via a CALL LRET. 

PLI540 The literal header is read into 
memory by a call to RDATA. 

PLI550 A check is made to determine if 


the just read into memory matches 
the literal number that is 
searched for. If the literal 


number does not match, a program 
error iS indicated. If a match 
is found, transfer is to PLI590. 


Otherwise, a dump of the input 
area is produced and transfer is 
to PLI500. 


PLI590 The number of characters in tbe 
literal is extracted from the 
literal header. 


The Literal number and the number 
of characters in the literal is 
set to print. 


PLI610 


PLI630 The literal text is read from the 


file. 


PLI670 The literal text is set to print. 


PLI710 If the logical end-of-file switch 
for the printer is not on, trans- 
fer is to PLI730. 

PL1I720 The printer is skipped to channel 
one. 


PL1I730 The literal 
characters, 
printed. Transfer is to 


number, number of 
and literal text is 
PLI470. 


DFJPMERG, DFJGMERG 


DFJPMERG and DFJGMERG are the routines that 
merge PLAN DYNAMIC PERMANENT files respec- 
tively. They are invoked through the LCHEX 
subroutine by the subroutines PMERG and 


GMERG. The merge is a standard two-way 
merge. Any out-of-sequence condition on 
either of the input files will cause a 


phrase abort. ID(2) of the file control 
block is updated to reflect the size of the 
merged file. The file control blocks of 
the input files are unchanged. The only 
difference between DFJPMERG and DFJGMERG is 
that the DYNAMIC file merge routine uses 
the FIND/READ/WRITE subroutines and the 
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PERMANENT 


file merge routine uses’ the 


RDATA/WDATA subroutine. 


MER890 


MER2290 


MER2430 


MER2750 


MER3010 


MER3050 


MER3070 


MER3110 


MER3130 


MER3220 


MER3250 


MER3710 


MER3750 


MER3850 


MER3870 


The ID blocks for the two files 
to be merged are moved from the 
sort work area into two working 
ID blocks. The location of ERAS- 
ABLE COMMON is determined and the 
address of the merge control 
field is set in the working 
storage area. The merge control 
fields are validated. 


The amount of available core for 
merging is calculated. On OS, 
this will be all of available 
core outside of the MERGE program 
area. On BOS, this will bea 
fixed buffer area within the pro- 
gram area. 


The addresses of the merge area 
are set and pointers to the 
beginning and end of both input 


areas are set. 


ID(2) for both input files is 
rounded to the nearest record 
length. 

The input record area for both 


files are primed. This is done 
by calling the subroutines GETA 
and GETB. 


The address of the current A area 
record is set as a winner. 

If flushing A area records, 
transfer is to MER3250. 


The address of the B area record 
is set as a winner. 

If flushing B area records, 
transfer is to MER3250. 


The subroutine SORTZ is called to 
compare the A area and the B area 
records. 

The winning record is moved to 
the output area. 


If the output area is 
transfer is to MER3850. 


not full, 


The subroutine FLUSHOAR is called 
to perform a WRITE on the output 
area. 


A link register is set so that 
the return from either the GETA 
or GETB routine is to MER3050. 


If the A area record was the 
winner, transfer is to MER4310. 


MER3990 


MER4050 


MER4310 


MER4390 


MER4710 


MER4930 


MER5150 


MER5190 


MER5290 


MER5330 


MER5510 


MER57 30 


MER5770 


MER5870 


FLUSHOAR 


MER5950 


MER6150 


MER6190 


SORTZ 
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If the B area is empty, transfer 


is to MER5290. 


The pointer to the current B area 
record is updated and return is 
made to MER3050. 


If the A area is empty, transfer 
is to MER4710. 


The address of the current A area 
record is updated and return is 
made to MER3050. 


If an end-of-file has occurred on 
the A file transfer is to 
MER5150. 


The address of the current record 
and the end of the A Area is set. 
Transfer is to MER4390. 
If flushing A area records, 
transfer is to MER5870. 


The flush switch is set for the B 
area. Transfer is to MER3050. 


If an end-of-file has occurred on 
the B file, transfer is to 
MER5730. 


The next B file block is read. 
Pointers to the current B area 
record andthe end of the B area 


are set. Transfer is to MER4O050. 


If flushing B area 
transfer is to MER5870. 


records, 


The fiush switch is set for the A 


area records and transfer is to 
MER3050. 

The end-of-job switch is set and 
transfer is to MER5950. 

The FLUSHOAR subroutine writes 
the output area. 

The current output area is writ- 
ten on the output file. If the 
end-of-job switch is not on, 


transfer is to MER6190. 


The merge has been completed and 
exit is to the next load entry in 
DFJPLAN mainline. 

the 


Control is returned to 


caller. 


subroutine is used to 
The results 
set in the 


The SORTZ 
compare two records. 
of the sort are 
register WINNER. 
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MER6690 The merge control fields are 
located from the working area 
bucket in the mainline. 


MER6770 The merge field is located. 


MER6910 The fields are compared. This is 
done by branching to an appropri- 
ate compare routine for the type 
of sort field. Return is to 
MER6930 if the compare is equal. 


MER6930 If this is not the last sort 
control field transfer is to 
MER6770. 


MER6970 Return is to here if an unequal 
compare is found by the compare 
routine. The A area record is 
assumed to be the WINNER. 


MER6990 If the records were equal, con- 
trol is returned to the caller. 


MER7010 If the A record was high, trans- 
fer was to MER7090. 


MER7030 If this is an ascending merge, 
control is returned to the caller 
with A as the winning record. 


MER7090 If this is a descending merge, 
control is returned to the caller 
with A as the winning record. 


MER7130 The B area record is set as a 
WINNER and control is returned to 
the caller. 


DFJPSCAN 


DFJPSCAN is the central language processor 
and interpreter for the PLAN system. It is 
brought into core and given control by the 
PLAN loader whenever there are no program 
names in the pop-up list. It may also be 
given control by CALL LEX as is the case 
when the subroutine PUSH is executed within 
the user's module. 


DFJPSCAN's order of execution is: 


1. The next command to be interpreted is 
accessed. 


2. A PFILE dictionary lookup is done to 
access the appropriate object and verb 
phrases for this command. The object 
phrase is brought into core and a 
pointer to each of the verb phrases 
saved in a table. 


3. Level management is performed according 
to the level of the previous phrase and 
the level of the current object phrase. 
That is, the managed array is defined 
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is set to FALSE, saved, restored, or 
left untouched. 


The symbols from the object phrase 
(Table 3) are added to the appropriate 
level symbol table. Starting with the 
rightmost verb in the command the sym- 
bols from each verb phrase are also 
added to the symbol table. 


The initialization values (Table 2) 
from the object phrase are placed in 
the communication array. Starting with 
the rightmost verb, the initialization 
values from each verb phrase in the 
command are also placed in the communi- 
cation array. 


The input stream from the end of the 
command to the semicolon is scanned. 
This scan is done in sequential order 
and includes any data values given, 
user exits, and expressions. 


The phrase-defined expressions (Table 
6) program lists (Table 4), and check 
entries (Table 5) are processed in that 
order from the object phrase. 


Starting with the rightmost verb phrase 
in the command, Step 7 above is 
repeated for each verb. 


Halts: None 
Errors: All PLAN errors produced directly 
by PSCAN are in the range from 200 to 299. 


Subroutines: LCHEX, LIST, LRET,  ERRET, 
ERRAT, ERROR, PLINP, PAIN, PEOF, PAOUT, 
PIOUT, PLOUT 


DFJPSCAN This is the entrypoint to the 


PSCAN module. 


PSCO40 The current status of all regis- 


ters is saved and then set up for 
PSCAN execution. 


PSC070- 
PSCO74 The special exit from the CHTEST 


routine is set so that the first 
call to CHTEST will result ina 
branch to INITGCHR to process the 
first record of the command. The 
first character in the input 
stream is initialized to hex 00. 


PSC O084- 
PSC096 If the repeat switch has’ been 


turned on asa result of a call 
to LREPT or PUSH, or because of a 
phrase being pushed from a_ check 
entry. The current command to be 
processed is read from PFINPUTA 
in PFILE. If the last record of 
the previous command contained 
residual characters following the 
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PSC098- 
PSc110 


psc112- 
PSC126 


PSC142- 
PSC154 


PSC156- 
PSC180 


PSC184- 
PSC198 


PSC202- 
PSC220 


s 
PSC224- 
PSC228 


PSC230 


PSC234 


PSC238- 
PSC254 


semicolon, that residual record 
is read is read from PFINPUTB. 


All 
are turned off. 
the 


of PSCAN's internal switches 
The switch in 
error routine is set to per- 
form a call to ERRAT on any 
errors given and the phrase 
checksum table is read in from 
PFILE. 


The first character of the con- 
mand is checked for numeric. If 
it is, 
checked at PSC1452 is turned on 
and the input pointer is advanced 
over the statement number. 


This code initializes switches 
and pointers used within BSCAN. 


This code will collect one word 
(3 characters) from the command, 
compute its checksum, and place 
it in the phrase name collect 
area. 


This code will pad out a phrase 
word with blanks if required. 


This code uses the checksum for 
that part of the phrase name 
collected to this point as a 
pointer into the checksum table. 
If the checksum table entry indi- 


cates that there are verbs in 
this phrase chain, the verb 
encountered switch is turned on 


and the phrase chain pointer is 
saved for use at PSC296. 


If the current character is not 
blank, the last word is padded 
with blanks if necessary before 


checking for a double quote mark. 


If the current character is not a 
double quote transfer is to 
PSC338 to terminate the collec- 
tion of the command name. 


If the verb encountered switch is 
on, transfer is to PpSC292 to 
search the current phrase chain 
for a verb by the same name as 
that part of the command 
collected to this point. 


The input pointer is set to the 
communication array and the spe- 


* 


the statement save switch = 


PSC 260- 
PSC286 


PSC 292- 
PSC324 


PSC328- 
PSC336 


PSC338- 
PSC346 


PSC348- 
PSC360 


PSC362- 
PSC370 


PHRGOT 


PSC386- 
PSC390 


PSC394—- 
PSC414 


PSC418 


The 
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cial exit from CHTEST is set so 
that the call to that routine at 
PSC156 will transfer control to 
PSC260. 


This code will take three charac- 
ters from one 32-bit word in the 
communication array to be used as 
the next word in the command 
name. 


This code searches the phrase 
chain for a verb of an equal 
name. If the verb is found, the 
verb program list (Table 8) is 
moved to the pop-up list. 


If over eight verbs are processed 
an error is given and the collec- 


tion of the command name is 
continued. 
The verb encountered switch is 


turned off and the checksum of 
the command name is used to pick 
up the checksum table entry for 
the object phrase. 


If the command name began with a 
comma or a semicolon, the pointer 


to the previous object phrase 
saved during the last execution 
of PSCAN at PHRGOT is used to 


access the object phrase. 


If the object phrase was found, 
the no-compare switch is turned 
on for the GETPHENT routine and 
transfer is to PHRGOT. Other- 
wise, an error is’ given and 
transfer is to ABORTERR to ter- 
minate PSCAN execution. 


This routine contains all the 
logic pertinent to phrase level 
processing. The pointer to the 


current object phrase is saved in 
the loader. 


symbol table write complete 
switch is turned on and the sym- 
bol table is initialized. 


This code checks to see that the 
requisite of level 0 and level 1 
command have been met. 


The levels of the current and the 


previous command are combined and 
used as indicators in the level 
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PSC438- 
PSC4H62 


PSC4H72 


PSC4UT6 


PSC496- 


PSC610 


PSC612- 
PSC614 


PSC616- 
PSC618 


PSC620 


PSC632- 
PSC6322 


PSC6324- 
PSC6462 


management of the managed 
and the symbol table. 


array 


the level error 
recovery logic. In other words, 
if the error recovery switch is 
on in the loader, it will be 
turned off if the level of the 
current command is equal or high- 
er than the last. 


This code is 


The appropriate level symbol 
table is read from PFILE so that 
the symbols from this command can 
be added to it. 


The level shift bits discussed in 


the introduction are turned on 
for the FIND/READ/WRITE 
subroutine. 


If the current command is Level 
2, 3, or 4, the managed array, if 
defined, is saved or restored. 


The level of where to start sav- 
ing the symbol table in PFILE is 
set and the subroutine SYMTBGET 
is called to add the symbol 
tables from this command to the 
current symbol table. 


The symbol table write complete 
switch is turned off if the cur- 
rent command is a Level 0 or 
utility level. It is turned on 
for all other level commands. 
This means that the symbol table 
for Level 0 or utility commands 
is not saved on disk and cannot 
be referenced by other commands. 
SYMTBPUT is called to initiate 
Saving of the current symbol 
table. 


DATAGET is called to place any 
initialization values for this 
command into the communication 
array. 


If the current command is utility 
level the utility level switch is 
turned on in the loader and 
transfer is to PSC612. 


This code is 
Level 0 commands. 
queue file, if defined, is 
dumped, the Level 0 encountered 
switch is turned on in the load- 
er, the command sequence number 
is reset to zero, the 15 PLAN 


executed only on 
The error 
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PSC650- 
PSC696 


DUMPERRS 


INPUTRD 


PSC724- 
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Switch words are set to system 
default values, and a pointer to 
the maximum size of COMMON is set 
for this PLAN job. 


This code is executed on Level 1 
commands. The error queue file 
is dumped and the symbol table 
write level is set so that the 
current symbol table will be 
saved four times. If the current 
command is Level 1 (not Level 0), 


the Level 1 found switch is 
turned on. The Level 1 shift 
switch for FIND/READ/WRITE is 


turned on and the managed array, 
if defined, is set to FALSE. 


This subroutine will dump the 
error queue file if there is any 
Significant information in it. 
The repeat switch is saved, 
turned on, and restored so that 
if the checkpoint to PERRS is not 
successful, PSCAN will repeat the 
current command. That is, if 
there is no checkpoint file. 


This subroutine is called whenev- 


er a null (hex 00) is found in 
the input scan area indicating 
that another record should be 


read from the current PLAN 
device. 


input 


The pointer to the current input 
character is saved and the input 
stream is scanned looking for a 
NULL or semicolon. If a semi- 
colon is found, the input pointer 
is restored and control is 
returned to the caller. 


If this is the first call to this 
routine during this execution of 
PSCAN, transfer is to PSC808 to 
Start reading the first record 
and immediately return control to 
the caller. 


This code checks for either log- 
ical or physical end-of-file on 
the current PLAN input device. 
On logical end-of-file transfer 
is to PSC1499 to produce an error 
diagnostic and terminate the cur- 
rent execution of PSCAN. on 
physical end-of-file the error 
queue file, if any, is dumped and 
the current execution of PLAN is 
terminated by scheduling the 
module DFJRETN which will return 
control to the OS/DOS supervisor. 
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PSC788- 
PSC7905 


PSC792- 
PSC808 


PSC812- 
PSC822 


PSC826- 
PSC832 


PSC836- 
PSC848 


INITGCHR 


PSC854—- 
PSC862 


PSC866- 
PSC878 


PSC884- 
PSC916 


The next 80-character record is 
transferred to the input’ scan 
area and if the LIST option is on 
that 80-character record it is 
printed on the current PLAN out- 
put device. 


If the record just brought in is 
all blank, a NULL is placed at 
the beginning of the record which 
has the effect of ignoring blank 
cards. Otherwise, the ID field 
(columns 76-80) are saved and a 
NULL is placed at column 76. 


The current record is searched 
for either a NULL or semicolon. 
If a NULL is’ found, a call to 
PLINP is issued to start reading 


the next record. 


The number of characters in this 
record is added to the total 
character count, and iff not over 
450, control is returned to the 
caller. 

This code will initiate a loop 


which will read records from the 
input stream until either physic-— 
al end-of-file or semicolon is 


read. An error is given and the 
current execution of PSCAN is 
aborted. 


This routine does special proces- 
Sing on the first record of a 
command. It is accessed only via 
the special exit from CHTEST and 
returns to CHTEST after 
execution. 


The input area is scanned to find 
the first mnonblank character. 
The remainder of the input area 
is then moved down to the begin- 
ning to cover the leading blanks. 


The input area is scanned until a 
NULL or semicolon is found and 
the initial character count of 
the first record is set. 


make sure that 
least one nonblank 
the input area. 

are again sup- 
pressed in the case where the 
first record is read from the 
current PLAN input device. 


This code will 
there is at 
character in 
Leading blanks 
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The input pointer is set to the 
beginning of the input area and 
transfer is to PSC4724 to return 
control to CHTEST. 


This subroutine is called from 
the PHRGOT routine to process the 
symbol table for the current com- 


mand. The symbol table (Table 6) 
from the object phrase is first 
added to the in-core symbol 
table. A symbol table from each 
verb phrase in the command is 
then added starting with the 


rightmost verb. As each symbol 
is added a search of the in-core 
symbol table is performed to 
check for a duplicate definition. 


If a duplicate is found, the 
current definition replaces the 
Old. If the CAP reference for 


any symbol is found to be symbol- 
ic, the expression is evaluated 
to resolve the CAP pointer before 
placing the symbol in the symbol 
table. 


A call to the DISKWAIT subroutine 
is issued to make sure the cur- 
rent symbol table is in core. If 
the level of the current object 
phrase is not blank, then its 
level is placed in the symbol 
table header. 


A pointer is initialized to the 
first available space in the sym- 
bol table. 


The execution-defined symbol sub- 
script switch is turned on. This 
switch is used by the expression 
evaluation routines under error 
conditions to determine which 
error should be given. 


A disk wait is issued to make 
sure the current phrase is in 
core and SRCHCT is called to 
search for Table 3 in the phrase. 
If there are no symbols in this 
phrase, transfer is to PSC1190. 


The initial symbol not collected 
Switch tested at PSC1086 is 
turned off. Note that this is 
done on each phrase of the com- 
mand so that the eventual implied 
Symbol will be the leftmost sym- 
bol in the leftmost verb phrase. 
If the current symbol does not 
have a symbolic CAP pointer, 
transfer is to PSC1082. 
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PSC980- 
PSC990 


PSC994- 
PSC1000 


PSC1002- 
PSC1012 


PSC1014-. 


PSC1024 


PSC1042- 
PSC1046 


PSC1062- 


PSC1082 


PSC1084- 
PSC1098 


PSC1102- 


Ppsci126 


PSC1186- 
PSC1190 


PSC1194- 
PSC1200 


The input pointer is set to point 
to the beginning of the symbolic 
subscript expression and is eval- 


uated to ARITHEXP. 
& 


If a logical value was found in 
the evaluation of the expression 
the result is set to zero to 
force an error at PSC1018. 


The input pointers saved at 
PSC980 is restored and a disk 
wait is issued if the current 


symbol table is being read back 


into core. 


The result of the expression is 
converted to fixed point and if 
the result is not positive, an 
error is given and the CAP point- 
er for the current implied symbol 
saved at PSC1098 or at entry to 
PSCAN is used as the cap pointer 
for this symbol. 


If the subscript is not less than 
16,384 or 512 with P-value, an 
error is given. 


The subscript is combined with 
the symbol to make a symbol table 
entry, and the Table 3 pointer is 
incremented over the subscript 
expression. The symbol table 
entry is then made. 


The symbol table pointer is 
incremented to the next available 


space and if the initial implied 
symbol not collected switch is 
off, and the current symbol is 


not in reference to the switch 
words it is saved as the initial 
implied symbol. 


The symbol table is searched for 
a duplicate definition of the 
current symbol. If found, the 
old definition is deleted. 

If all the symbols for this 
phrase have been processed, the 


symbol subscript switch turned on 
at PSC946 is turned off. 


Tf the current command contains 
verb phrases, the next verb to 
the left is read in and transfer 
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is to PSC944 to process its sym- 
bols, otherwise, control is 
returned to the caller. 


This code is used aS a common 
exit from both SYMTBGET and DATA- 
GET. It issues a call to GET- 
PHENT to read the object phrase 
back into core and returns con- 
trol to the caller. 


This subroutine is called from 
the PHRGOT routine to place 
initialization values (Table 2) 
from the current command into the 
communication array. The order 
of processing with respect. to 
verb phrases is the same as that 
for SYMTBGET. 


A disk wait is issued to make 
sure that the current phrase is 
in core and SRCHT is called to 
search for Table 2 in the current 
phrase. If there are no initia- 
lization values for this phrase 
transfer is to PSCc1290. 


The pointers are initialized for 
the loop through Table 2 initia- 
lization values. 


This code will loop until all the 
initialization values for the 
current phrase are processed. If 
an execution-defined CAP pointer 
is encountered or an Implied Do, 
an appropriate branch is taken. 


If there are no verbs in the 
current command, control is 
returned to the caller; other- 
wise, the next verb to the left 
is read in and transfer is to 
PSC1258 to process its initiali- 
zation values. 


This code performs a symbol table 
lookup to find the CAP pointer 
for the current initialization 
value. This is done in the case 
where the CAP pointer was symbol- 
ic at phrase-definition time. 


This code processes Implied Do 
subscripts. It will place the 
initialization value in the com- 
munication array the specified 


number of times. 


executed after 
the scan 


This routine is 
PHRGOT. It completes 
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PSC1380 


PSC1382 


PSC1384 


PSC1386- 
PSC1418 


CHOVR 


PSC1434- 
PSC1438 


PSC1450 


PSC1452- 


PSC1456 


PSC1459 


PSC1460- 
PSC1463 


PSC1466- 
PSC1472 


“command name is 


and evaluation of the current 


command. 


If the first character after the 
not a colon, 
DATAIN is called to scan the 
input stream from the command 
name to the semicolon. 


The EBCDIC image of the current 
command is saved in PFINPUTA of 
PFILE. 


A disk wait is issued to make 
sure that the current phrase is 
in core. 


This code 
defined 


program lists, 


processes 
expressions (Table 
(Table 4), and 
check entries (Table 5) first 
from the object phrase and then 
from verb phrases starting with 
the rightmost verb. 


phrase- 


This routine is always executed 
to terminate the execution of 
PSCAN. It performs final house- 
keeping and sets indicators 
necessary for intermodule com- 
munication. If the phrase skip 
switch was turned on at PSC456 
transfer is to PSC1466. 


Tf the current command is not 
blank or utility level, its level 
is saved in the resident loader. 


SYMTBLOP is called to ensure that 
the current symbol table is saved 
on disk. 


If the statement saved switch is 
turned on at PSC122, then PSTSV 
is placed in the pop-up as the 
first program to be executed to 
save the current command in the 
Statement save file. 


If a phrase was pushed from a 
check entry, transfer is to 
PSCO40 to reenter PSCAN and eval- 
uate that command. 


If the phrase skip or phrase 
error switch is on, the program 
pop-up list is cleared before 
returning control to the resident 


loader. 


If this command is to be skipped 
due to level error recovery and 
there are no errors in the cur- 


PSC1499- 
PSc1501 


PSC1502 


SYMPTLOP 


PSc1508- 
PSC1510 


PSC1516- 
PSC1518 


SRCHCT 


PSC1592- 
PSC1594 


PSC1604- 
PSC1618 


ERROR 


PSC1668 
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rent command, then the phrase 
skipped error is given for trans- 
fer to PSC1450. 


This error abort processing is 
used in those cases where con- 
tinuation of the scan is impos- 
Sible. Entry at PSC1499 will 
place a semicolon at the end of 
the last record to ensure that no 
more records are read. 


The pointer to the current object 


phrase saved in the resident 
loader by PHRGOT is cleared to 
prevent repeating of the current 
command. 

This subroutine when executed 
will ensure that all levels of 
the current symbol table are 


saved in PFILE. 


SYMTBPUT is called to write the 
next level symbol table in PFILE. 
If the symbol table write com- 
plete switch is not on, transfer 
is to PSC1516; otherwise, control 
is returned to the caller. 


A special entry is taken into the 
GSYM routine to ensure that the 
current symbol table is in core 
and transfer is to PSC1508. 


This subroutine will search the 
phrase entry currently in core 
for a specific table by number. 
It will return to the caller a 
pointer to the beginning of the 
table and its’ length. If the 
table does not exist, the length 
will be zero. 


A pointer is incremented over the 
phrase name to point to the first 
table. 


This code will loop chaining from 
table to table until the table 
requested is found or the end of 
the phrase. 


This subroutine is called to pro- 
cess any errors encountered dur- 
ing PSCAN execution. 


If the GO TO search switch is on, 
the error is ignored. Note that 
during a GO TO search, the input 
stream is being scanned but not 
processed. 
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Unless this is a continue type 
message being produced from a 
check entry, the error found 
switch is turned on to indicate 
an error was found in the current 
command. 


200 is added to the error number 
and the high-order bit is turned 
on to indicate to DFJIPERRS' that 
this is a system error. 


The symbol table save operation 
if not finished is completed and 
the input image if not already 
saved to PFILE. 


If an ECODE has not been supplied 
by the caller, an input cursor is 
computed and used as the ECODE. 


A call to ERRAT or ERRET is made 
to process the error and control 
is returned to the caller. 


If errors have been queued to 
file 255 on LOGICAL drive 0, this 
subroutine will perform a check- 
point to DFJPERRS to dump file 
255 to the current PLAN output 
device. 


If the queue file valid switch 
has not been turned on by either 
EWRIT or DFJPERRS, control is 
returned to the caller. 


This code in effect performs a 
call to ERLST with DFJPERRS 
returning control PSC1736. 


This subroutine will transfer 
program names from a phrase entry 


to the pop-up list in the  resi- 
dent loader. It gets as a param- 
eter the number of the table 


within the phrase and the program 
list to be processed. 


SRCHCT is called to search for 
the appropriate program list 
table. If the table does not 
exist, control is returned to the 


caller. 


The table length is converted to 
32-bit words as the first param- 
eter in the CALL LIST and LIST is 
called to move the program list. 


74 FLOWCHART NARRATIVES 


GETPHENT 


PSC1780 


PSC1786- 
PSC1796 


PSc1810- 
PSC1816 


PSCc1818- 
PSC1828 


PSC1830- 
PSC1834 


PSC1852- 
PSC1858 


5C1860- 
PSC1876 


GETPH4 


15 JULY 1969 


This subroutine is’ called to 
access a phrase from PFILE. The 
parameter passed to it is either 


a direct pointer to the phrase or 
a pointer to the first phrase in 
a chain of phrases in an equal 
checksum. This pointer is of the 
form xxyy where yy is the rela- 
tive record in the phrase entry 
area of PFILE, and xx is the 
displacement into that record to 
the beginning of the phrase. 


The pointer to the next phrase in 
the chain is taken from the cur- 
rent phrase header. 


The pointer to the next record in 
PFILE containing the next phrase 
in the chain is extracted. If 
this pointer is zero, it indi- 
cates the end of the phrase chain 
and control is returned to the 
caller. 


The record containing at least 
the beginning of the next phrase 
in the chain is read into core. 


If this is a phrase search opera- 


tion, the record just read is 
checked to make sure that it 
contains at least the phrase 
name. If not, GETPH4 is called 


to read in the rest of the phrase 
entry. 


The phrase just read is checked 
against the compare phrase and if 
they are not both verbs or object 
phrases and their names equal, 
transfer is to PSC1780 to access 
the next phrase in the chain. 


GETPH4 is called to start reading 


in the rest of the phrase. The 
phrase found exit is set and 
control is returned to the 
caller. 


This code will loop reading as 
many records as necessary from 
PFILE in order to bring the whole 
phrase entry into core. 


This subroutine is’ called by 
GETPH to read in the remainder of 
the phrase if any. Note that 
phrases may be up to 512 16-bit 
words long and therefore may 
occupy up to three records in 
PFILE. 
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If the whole phrase is already in 
core, control is returned to the 
caller. Otherwise, the number of 
words left to read are calculated 
and transfer is to PSC1868. 


This routine is called to evalu- 
ate the check entries associated 
with the phrase currently in 
core. 


SRCHCT is called to search for 
Table 5 in the current phrase. 
If Table 5 does not exist, con- 
trol is returned to the caller. 


If the current entry has an 
execution-defined symbolic CAP, 
transfer is to PSC2070. 


The CAP pointer is converted to a 
COMMON location and checked 
against the current size of COM- 
MON. If the subscript is outside 
of COMMON, an error is given and 
transfer is PSC1932 to access the 
next check entry in the table. 


If the value in COMMON is not 
FALSE, transfer is to PSC1986 for 
further checking. Otherwise, if 
this is not an *F entry transfer 
is to PSC1994 to process the 
action called for. 


This code increments to the next 
entry in the table and checks for 
the end of the table. When the 
end of the table is found, con- 
trol is returned to the caller. 


This code will be executed when a 
check entry fails and a literal 
diagnostic is called for. 


This code checks the value in 
COMMON against the value 
requested by the check entry and 
takes the appropriate processing 


branch. 


If there is no additional infor- 
mation with this check entry, 
such as a literal or program 
list, transfer is to Psc1952 to 
produce PLAN diagnostics 220 
through 223. 


The pointer is set to the literal 
within the check entry or to 
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COMMON whichever was defined at 
phrase-definition time. If a 
subscript is indicated, the sub- 
script is checked to see that it 
is within COMMON. T£ not, an 
error is given and transfer is to 


PSC1932 to get the next table 
entry. 
If this isa literal diagnostic 


request, transfer is to PSC1952. 


If this is a program list entry, 
the called for program list is 
moved to the resident loader. 


If the statement save switch is 
on, indicating that the current 
command is to be saved in the 
statement saved file, it is 
turned off. A diagnostic is 
given indicating that pushed 
phrases from a check entry and an 
implicit statement save are 
incompatible. 


The pushed phrase is saved in 
PFINPUTA of PFILE and the repeat 
Switch is turned on to cause 
execution of that command. 


This code performs a symbol table 
lookup on those checkentries per- 
formed on a symbolic CAP pointer. 


This subroutine is called to save 
the current symbol table in 
PFILE. Note that if the current 
command is a Level 1, the symbol 
table is saved four times. If 
Level 2 it is saved three times 
etc. The saving of the symbol 
table is processed so that it 
goes on concurrently with execu- 
tion wherever possible. If this 
routine determines that execution 
time would be impaired by 
initiating a disk operation it 
will act as a no-op. 


write com- 
control is 


If the symbol table 
plete switch is. on, 
returned to the caller. 


The special exit from CHTEST is 
set with the address of PSC2166. 
This will result in a call to 
CHTEST possibly initiating anoth- 
er symbol table save if 
warranted. 


If the current symbol table to be 


saved is not in core, control is 
returned to the caller. 
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PSC2136- 
PSC2148 


PSC2166 


RSYM 


PSC2268- 
PSC2270 


PSC2272 


PSC2276- 
PSC2286 


PSC2290- 
PSC2294 


PSC2306- 
PSC2316 


PSC2320- 
PSC2324 


WSYM 


PSC2340- 
PSC2352 


PSC2354 


is written to 
save area of 


The symbol table 
the appropriate 
PFILE. If this is the Level 4 
symbol table, the symbol table 
write complete switch is turned 
on and the special exit from 
CHTEST is turned off. 


CHTEST will pass control to here 
as a result of the special exit 
set at PSC2118. A call to SYMTB- 
PUT is executed and control is 
returned to CHTEST. 


This routine is called to read 
and unformat values from the com- 
munication array. 


GSYM is called to lookup the 
current symbol in the symbol 
table. The RSYM/WSYM TRUE and 


FALSE switches are turned off. 


If the subscript for the symbol 
is outside of COMMON, an error is 
given and control is returned to 
the caller. 


The value is read from COMMON and 
checked for TRUE or FALSE. If 
yes, the appropriate RSYM switch 
is turned on. 


If this value was last written as 
fixed-point, it is converted back 
to floating-point. 


If the value was adjusted by a 
P-value when written to COMMON, 
it is now divided by the same 
P-value. 


Tf the value read was TRUE or 
FALSE, the appropriate switch is 
turned on and control is returned 
to the caller. 


This routine is called to format 
and write values to the communi- 
cation array. 


If the WSYM TRUE or FALSE switch 
is on, the appropriate value is 
placei in the output bucket and 
the WSYM literal switch is turned 
on to suppress formatting. 


GSYM is called to lookup the 
current symbol in the symbol. 
table. 
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If PSCAN is currently in a GO TO 
search or in the FALSE leg of a 
TRUE expression, or the TRUE leg 
of a FALSE expression, control is 
returned to the caller without 
writing the value to COMMON. 


If the subscript is not in COM- 
MON, an error is given and con- 
trol is returned to the caller. 


If the WSYM literal switch is on, 
transfer is to PSC2410 to sup- 
press formatting. 


If the current symbol has a P- 
value, the value to be written to 
COMMON is multiplied by it. 


If the current symbol is fixed- 
point the value is adjusted by a 
plus or minus 0.5 and converted 
to fixed-point. 


The value is written to COMMON, 
the RSYM and the WSYM switches 
are turned off and control] is 


returned to the caller. 


This subroutine is called during 
the scan of the input stream to 
test for a user-exit associated 
with the current symbol. 


The no user-exit processed switch 
is set. 


GSYM is called to look up the 
current symbol. The relative 
subscript is restored by decre- 
menting it by one. The symbol 
table entry is checked for a user 
exit. If there is none, control 
is returned to the caller. 


If PSCAN is currently in a GO TO 
search, the inhibit switch (ISW) 
is turned on so that the user 
exit will not store values into 
COMMON. 


The name of the user exit program 
is accessed for the call at 
PSC24685 and the current COMMON 
location is calculated and put in 
ISUBS for the NUSER subroutine. 


A check is made to make sure the 
symbol table and the current com- 
mand are saved on disk in case 
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PSC24685 
PSC2480- 


PSC2496 


PSC2504- 
PSC2516 


LUSYM 


PSC2526- 
PSC2542 


GSYM 


PSC2552 


PSC2554 


PSC2560- 
PSC2566 


PSC2592- 
psc2598 


PSC2602- 
PSC2624 


the user exit program does not 


return successfully. 


The user-exit program is called 
as a LOCAL. 


The error parameters returned by 
the user exit in the call to 
EUSER, if any, are processed. 


PSCAN's pointer to COMMON is 
updated to reflect the last loca- 
tion used by the user exit pro- 
gram and control is returned to 
the caller. 


This subroutine is used by DATA- 
GET and TESTCHKE to lookup 
execution-defined symbol 


subscripts. 


A special entry is taken into the 
GSYM routine to look up the com- 
pressed symbol. The COMMON loca- 
tion is converted to a subscript 
and control is returned to the 
caller. 


This 
table 


routine performs symbol 
look up for the symbol 
found in the symbol bucket or 
compressed symbol bucket. It 
searches the current and higher- 
level symbol tables if necessary. 


The P-value switch set at PSC2662 
is turned off. 


If the symbol bucket contains 
blanks, it indicates a second 
lookup on the same symbol and 


transfer is to PSC2628. 


If the 
is not 
symbol is 


compressed symbol bucket 
zero, it indicates the 
already in compressed 
form. Otherwise, three charac- 
ters are taken from the symbol 
bucket and compressed. 


A disk wait is issued to make 
sure the current symbol table is 
in core and the current symbol 
table in the core switch is 
turned on. 


This code will search the symbol 
table currently in core until 
either the symbol is found or the 
end of the table. If the symbol 
is found, the complete symbol 
table entry is saved. 


PSC 2628- 
PSC2640 


PSC2642- 
PSC2670 
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PSC2684 


PSC 2686 


PSC2692- 
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PSC2730- 
PSC2736 
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If a higher-level symbol table 
was read in at PSC2724, this code 
will bring the current’ symbol 
table back into core. 


If the symbol table entry has a 
P-value, the P-value is converted 
to a factor of ten and the sub- 
script is made relative to the 
beginning of the managed array 
instead of the switch words. 


The subscript is converted to a 
COMMON location. The relative 
subscript is incremented for the 
next call to GSYM. The symbol 
bucket is set to blanks and con- 
trol is returned to the caller. 


If the symbol table currently in 
core is Level 1, transfer is to 
PSC2730 to give an error. 


If this symbol table look up is 
the result of an execut ion- 
defined symbol subscript, the 


current partially created symbol 
table is saved on disk before the 
next-higher table is brought in. 


The next-higher level symbol 
table is read into core and 
transfer is to PSC2592 to con- 
tinue the search. 


The undefined symbol error is 
given and the initial implied 
symbol is given in its place. 


This subroutine will move 
variable-length character records 
between core locations. The 
three paramaters passed to it are 
FROM, TO, and KOUNT. 


The number of bytes requested is 
moved and control is returned to 
the caller. 


This routine will slide over 
blanks in the input stream start- 
ing with the current character. 


The input pointer is backed up to 
point to the previous character 
and transfer is to PSC2818. 


This subroutine will suppress 


blanks in the input stream start- 
ing with the next character. 
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This code will loop until a 
blank character is found. 


non- 


The condition code which indi- 
cates whether the current 
character is alpha, numeric, or 


special character is restored and 


control is returned to the 
caller. 
This routine functions as the 


control section for scanning the 
input stream data and the end of 
the command name to the 
semicolon. 


The error code is set to zero and 
the first character after the 
command name is accessed. 


current character is a 
control is returned to 


If the 
semicolon, 
the caller. 


If the command name did not end 
with a comma, colon, or semi- 
colon, an error is given and the 


input pointer is decremented to 
the previous character. 


The number of GO TO loops is set 
to a maximum of 1000, the rela- 
tive subscript set to 1, and the 
input pointer is saved. 


The symbol bucket is set to 
blanks and the initial symbol 
information set up. This is done 
so that if the first item found 
in the input stream is a data 
value with no symbol, that data 
value will go in the location 
assigned in the first symbol in 
the command. 


The next nonblank character in 
the input stream is accessed and 
the subroutine CENTEST is called 
to check for a dollar sign 
expression number. 


Any possible blanks in the input 


stream are slid over and a_ check 
is made for an alphabetic 
character. If not, transfer is 


to PSC2994. 


The Implied Do valid switch 
tested by the COLSYM routine is 
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turned on and COLSYM is called to 


collect the alphabetic symbol. 
The Implied Do valid switch is 
then inverted. Note that if 
COLSYM finds an Implied Do, it 
turns this switch off. The sym- 
bol found switch tested at 


PSC2986 is turned on. 


This code will check for literal 
data values, an expression to be 
evaluated, or a user-exit program 
associated with this symbol. If 
any Of these are found, transfer 
is to PSC2960. 


This code collects and moves 
normal data values to COMMON. 
The values may be either logical, 


signed, or unsigned numeric 
values. If no data value is 
found, following the symbol then 


a logical TRUE is assumed. 


This code moves the data values 
to COMMON. If an Implied Do was 
found by COLSYM, the value is 
placed in COMMON the correct 
number of times. 


If an Implied Do subscript. was 
not followed by a single-valued 
constant, the appropriate error 
is given. Note that an Implied 
Do subscript cannot be followed 
by a literal or expression and it 
must not have a user-exit program 
associated with the symbol. 


The symbol yes switch is turned 
off and a check is made for a 
comma. If not, the input pointer 
is decremented before transfer- 
ring to PSC2874. 


When a numeric constant is found, 
the WSYM TRUE and FALSE switches 
are turned off and the numeric 
constant is placed in the output 
bucket. 


If no numeric constant is found, 
and the symbol yes switch is off 
indicating that no symbol was 
found after the last comma, an 
invalid character error is given. 


A check is made for a comma or a 
semicolon. If a comma is’ found, 
the relative subscript is incre- 
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mented by one and transfer is to 
PSC2874. On a semicolon, the GO 
TO search switch is turned off 
and control is returned to the 
caller. 


This routine tests for and pro- 
cesses literal data values from 
the current input stream. 


If the current character in the 
input stream is not a double 
quote, Single quote, or commer- 
cial at sign, control is returned 
to the caller through the no 
literal found exit. 


The beginning quote sign is saved 
for testing at PSC3042. The 
input pointer is saved for calcu- 


lation of the literal count 
PSC3060. 
This code will loop accessing 


successive characters until ei- 
ther a quote sign equal to the 
beginning quote, or a semicolon 
is found. If a semicolon is 
found before the end quote, an 
error diagnostic is given. 


The literal count of the number 
of characters is calculated. If 
this count is zero, an error 
diagnostic is given. 


If this is a double quote liter- 
al. Transfer is to PpSsc3080 to 
bypass placing of the character 
count in COMMON. 


This code will loop moving four 
characters of the literal ata 
time into successive positions of 
COMMON until the literal count is 
exhausted. If the literal count 
is not a multiple of four, the 
last word moved is padded with 
blanks. 


This routine will collect symbols 
from the current input stream. 
These symbols may be optionally 
preceded by an S* and/or sub- 
scripted. The current character 
in the input stream is assumed to 
be alphabetic on entry. 


Up to three alphabetic characters 


are collected and placed in the 
symbol bucket. If the second 
character is nonalphabetic, 
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transfer is to PSC3240 to test 
for a possible S‘ formation. If 
the symbol is less than three 


characters, blanks are supplied. 
If more than three characters, 


the remaining characters are 
ignored. 
The S* valid switch is turned off 


and the relative subscript is set 
to one. 


If the first character after the 
symbol is not an EBC or BCD left 
parenthesis, control is returned 
to the caller. Otherwise, the 
recursive operator is set to an 
EBC or BCD right parenthesis 
respectively. The symbol bucket 
is saved in the recursive accumu- 
lator and the recursive routine 
ARITHEXP is called to evaluate 
the subscript expression. 


If the expression ended with a 
comma and the Implied Do valid 


switch is on, then ARITHEXP is 
called to evaluate the second 
expression. The result of the 


expression if positive, is con- 
verted to fixed point and used as 
the upper limit of the implied 
do. 


If the upper limit expression was 
ended with a comma, then ARITHEXP 
is called to evaluate the expres- 
Sion defining the implied do 
increment. Note, if no comma was 
found, a default increment of one 
is supplied. 


The 
off. 


Implied Do switch is turned 


An error is given to indicate 
invalid format, logical value, or 
negative value in a_= subscript 
expression and the initial sub- 
script is forced to a value of 1. 


The initial subscript is  con- 
verted to fixed-point and checked 
for positive value. If yes, the 
input pointer is advanced over 


‘the right parenthesis and control 


is returned to the caller. 


the second 
symbol is not 


case where 
of the 


In the 
character 


FLOWCHART NARRATIVES 79 


PROBLEM LANGUAGE ANALYZER (PLAN) 


SYSTEM MANUAL 


PSC3252- 
PSC3254 


PSC3256- 
PSC3260 


COLNUMT 


PSC3274- 


PSC3284 


PSC3286- 
PSC3308 


PSC3312- 
PSC3320 


PSC3330- 
PSC3350 


PSC3354- 
PSC3358 


PSC3360- 
PSC3366 


PSC3370- 
PSC3372 


alphabetic, this code checks for 
the possibility of an S‘ forma- 


tion. If not, transfer is to 
PSC3130. 
The S‘' formation found switch is 


turned on and the 
is incremented 
sign. 


input pointer 
over the quote 


The first character after the S' 
is checked for alphabetic. If 


yes, transfer is to PSc3114, 
otherwise, the symbol bucket is 
set to blanks and the initial 


implied symbol is supplied. 


This routine is called to check 
for and collect numeric data in 
floating-point form. It will 


convert a variable length numeric 
field to a 32-bit floating-point 
constant. 


Pointers and switches are 
initialized before starting the 
collection of numeric data. 


This code will 

numeric characters 
nine numerics 
collected, or a 
character is found. 


loop collecting 
until either 
have been 
non-numeric 


The count of the number of digits 
collected to this point is saved 
and the current number of charac~- 
ters is converted to 
floating-point. 


The old result 
the new number of digits just 
collected is added in. If there 
are still digits to be collected, 
transfer is to PSC3286. 


is adjusted and 


If the numeric field was preceded 


by a minus sign, the result is 
complimented. 

If no numerics have been 
collected to this point, the no 


numeric exit is set and control 
is returned to the caller. 


If the next character after the 
numeric field is not an E, blanks 
are suppressed and control is 
returned to the caller. 
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If the character after the E is 
alphabetic, the input pointer is 
decremented and control is 
returned to the caller. 


This code checks for a plus or a 
minus sign preceding the exponent 
field. If a minus sign is found, 
the negative exponent switch is 
turned on. 


This code collects and validates 
the exponent field. Note, that 
if the exponent is more than two 
digits long, an error is given 
and control is returned to the 
caller. 


The mantissa is adjusted by the 
exponent field. Blanks are sup- 
pressed and control is’ returned 
to the caller. 


This routine is called to test 
for and evaluate arithmetic and 
logical expressions. It func- 
tions as a control section during 
the evaluation. 


If the current character is not a 
colon, pound sign, or equal sign, 
the expression not found exit is 
set and control is returned to 
the caller. 


The contents of the symbol bucket 
and the current relative sub- 
script are saved. 


If this routine was called during 
evaluation of phrase-defined 
expressions, the ECODE is incre- 
mented to indicate a new 
expression. 


EXPEVAL is called to do the actu- 
al expression evaluation. 


If this was a LOGICAL expression 
followed by a question mark, this 
code will evaluate the TRUE leg 
of the expression. 


If this is a LOGICAI, 
and also has a FALSE 
fer is to PSC3572. 


expression 
leg, trans- 


The symbol bucket saved at 
PSC3472 is restored and if this 
is a LOGICAL expression, the WSYM 
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switches are set to give a logic- 
al TRUE or FALSE as an answer. 


If this is a LOGICAL expression, 
that contained a GO TO and either 
the TRUE or FALSE leg of the 
expression, transfer is to CENTLU 
to initiate the GO TO search. 


If the right hand operand to the 
expression was a literal, trans- 
fer is to PSC3536 to bypass writ- 
ing the results to COMMON, — 


The result of the expression is 


placed in the output bucket, the 
subscript saved at PSC3472 is 
restored, and the value is writ- 


ten to COMMON. 


The conditional expression and 
conditional expression TRUE 
Switches are turned off and a 


check is made to _ see that the 
expression ended with a comma or 
a semicolon. If yes, control is 
returned to the caller. 


An error is given indicating an 
invalid end to an expression and 
an attempt is made to finish the 
scan of the expression. 


The results of the TRUE leg of 
the expression are saved and the 
FALSE leg is evaluated. 


The final 
sion is set from either the TRUE 
or the FALSE leg according to the 
result of the base leg 
expression. 


This routine is called by the 
EXPEVALT routine to evaluate sec- 
tions of expressions. 


The saved code bucket is cleared 
and the current § input stream 
character is placed in the type 
box. The type box is used to 
indicate the type of expression 
being evaluated. 


If the current character is a 
colon the next nonblank character 
is a dollar sign. Transfer is to 
PSC3598 to change the type box to 
a dollar sign. 


result to the expres- . 


PSC3612- 
PSC3626 


PSC3630- 
PSC3636 
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The input pointer is decremented 
and the recursive routine LOGICAL 
is called to evaluate the LOGICAL 
expression. 


On a :$ formation, the formula 
number is collected and placed in 
the output register as a result 
of the expression. This number 
is later used by CENTLU to initi- 
ate the GO TO search. 


If the current character is not a 
pound or equal sign transfer is 
to PSC3690 to give an error. 


The symbol bucket and subscript, 
saved at PSC3472 are restored and 
a test is made for a literal 
operand. If a literal was found, 
transfer is to PSC3696. 


The arithmetic expression is 
evaluated. 

If a logical operand was found 
during the evaluation of the 
arithmetic expression, the type 
box is changed to a colon to 


indicate a LOGICAL expression and 
a result is set to TRUE or FALSE 
accordingly. 


The result of the expression is 
saved and control is returned to 
the caller. 


An error is given to indicate 
invalid format and transfer is to 
PSC3684. 


The type box is set to indicate 
the literal operand and transfer 
is to PSC3684. 


This routine will initiate a GO 
TO search. 


If a GO TO search is already in 
progress, transfer is to PSC3536. 


If this is the TURE leg of a 
FALSE expression, transfer is to 
PSC3536. 


If the formula number for the GO 


TO is zero, transfer is PSC3536 
to ignore the go to. 


The GO TO search switch is turned 
on. The formula number is saved 
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EVALUATE 


for test by the CENTEST routine, 
the input pointer saved at 
PSC2866 is restored, the symbol 
bucket is set to blanks, and the 


initial implied symbol is set up. 


If over 1000 GO TO search's have 
been executed, an error is given 
and transfer is to PpSc3006 to 


return control to the caller of 
DATAIN. 
This routine tests for dollar 


Sign formula numbers. 


If the current character is not a 


dollar sign, control is returned 
to the caller. Otherwise, the 
formula number is collected and 
if it is equal to the formula 


number being searched for in a GO 
TO search, the GO TO search 
switch is turned off. 


This routine will test for a 
logical value found in an arith- 
metic expression. 


If the LOGICAL result switch is 
on aS a result of finding a 
logical value in an arithmetic 
expression, the WSYM FALSE switch 
is turned on and the logical 
value switch is turned off. 


This subroutine is called to test 
for and convert a field of EBCDIC 
numeric characters to an integer 
value starting with the next non- 
blank character in the input 
stream. 


The input pointer is advanced to 
the next nonblank character and 
transfer is to PSC3786. 


This entry to the INTEGER routine 
will start collecting numeric 
data with the current character. 


This loop will collect numeric 


digits until a nonnumeric 
character is found. 
SUPADV is called to slide over 


in the input stream 
returned to the 


any blanks 
and control is 
caller. 


This routine is called to evalu- 
ate phrase-defined expressions 
(Table 6). These expressions are 
in two different forms. The 
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associated 
at phrase- 


first type are those 
with a CAP pointer 
definition time and are of the 
form (N) A=BtC. This type of 
expression is in tabular form and 
is evaluated by this routine. 
The second type of expression is 
the dollar sign formula area. If 
any of this type of expression is 
found, control is passed to the 
DATAIN routine to evaluate these 
expressions in the same manner as 
those found in the input stream. 


If there are no phrase-defined 
expressions for the phrase cur- 
rently in core, control is 


returned to the caller. 


The first byte after Table 6 is 
saved anda semicolon put in its 
place. The phrase-defined 
expression switch is turned on. 


The current status of the input 
pointer is saved and the pointer 
is set to point to Table 6. 


Note: this means that routines 
such as CHTEST and ADVSUP, etc 
will now fetch characters from 
Table 6 instead of the normal 


input stream. 


If bits 0 and 1 of the first word 
are zero, the CAP associated with 
the expression at definition time 
was of the form (M+6) and trans- 
fer is to PSC3856. 


If bit 0 is off and bit 1 is on, 
transfer is to PSC3950 to start 
the scan of the formula area. 


In the case of the symbol table 
entry, a relative subscript of 1 
is created in the previous word 
of the table and the input point- 
er is decremented to point to it. 


The next two words from Table 6 
are put ina save bucket and the 
input pointer is incremented to 
point to the first EBCDIC 
character in the expression. 


If the first character is not a 
colon, the input pointer is 
incremented over the equal or 
pound sign and the literal test 
switch is turned on. 


This code sets up the information 
needed by the GSYM routine. If 
the CAP pointer is execution- 
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defined, that is, (M+6), the sym- 
bol bucket is set to O and =the 
compressed symbol bucket will be 
set from the second word of the 
Table 6 entry. GSYM will then 
obtain the information for the 
symbol table entry bucket by 
doing a symbol table lookup. 
Otherwise, the symbol bucket is 
set to blank to suppress symbol 
table lookup and the symbol table 
entry bucket is created from the 
information in Table 6. 


made for a literal 
If found, transfer is 


A test is 
operand. 
to PSC3918. 


The arithmetic expression is 
evaluated and the result is writ- 
ten to COMMON. 


If this is a LOGICAL expression, 
a test is made for the existence 
of a FALSE leg. If yes, transfer 
is to PSC3856. 


The conditional expression and 
conditional expression TRUE 
switches are turned off and the 


input pointer is incremented over 


the comma. If all Table 6 
expressions have not yet been 
processed, transfer is to 
PSC3842. 

The LOGICAL expression is 
evaluated. 


If the LOGICAL expression was not 
followed by a TRUE leg, the prop- 
er result is set and transfer is 
to PSc3914. 


The expression number error code 
is saved, the GO TO count is 
initialized to 1000, and the exit 
address from DATAIN routine is 
set to return control to PSC3972. 
Control is then passed to the 
DATAIN routine for evaluation of 
the dollar sign formula area. 


The conditional expression switch 
is turned on and the’ conditional 
expression TRUE switch is turned 
on if the base leg was TRUE. 


The input pointer is incremented 


over the question or exclamation 
mark. The conditional expression 
TRUE switch is inverted and 
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transfer is to PSC3866 to evalu- 
ate the TRUE or FALSE leg 
expression. 


DATAIN will return control to 
here for cleanup processing 
before control is returned to the 
caller of EVALUATE. The condi- 
tional expression, conditional 
expression TRUE, and phrase- 
defined expression switches are 
turned off. The first byte after 
Table 6 saved at PSC3826 is 
restored, the input pointer saved 
at PSC3840 is restored, and con- 
trol is returned to the caller. 


This routine will perform a pre- 
scan Of a LOGICAL expression in 
search of a relational operator. 


The current status of the input 
pointer is saved and the paren- 
theses counter is set to zero. 


The next character in the input 
Stream is accessed and checked 
for a comma or semicolon. Tf 
yes, transfer is to PSC4050. 


If the current character is a BCD 
left paren, an error is given. 


If the character is an EBCDIC 
left parenthesis, the parentheses 
counter is incremented and trans- 
fer is to PSC#002 to get the next 
character. 


If a relational operator is 
found, transfer is to PSC4#124. 


If the character is a right 
parenthesis, the parentheses 
counter is decremented and if not 


0, transfer is to PsSc4#002. 
Otherwise, the input pointer 
saved at PSC3998 is restored and 


the LOGICAL routine is entered. 


This routine controls the evalua- 
tion of a logical expression at 
the first level of hierarchy. 


The result is set to a default of 
FALSE and saved in the recursive 
accumulator. 


The next character in the input 
stream is accessed and the HIER2L 
is called to evaluate the logical 
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expression at the second level of 
hierarchy. 


If the result returned by HIER2L 
is TRUE it is left alone, other- 
wise, the result is set from the 
recursive accumulator. 


If the current character is an OR 
Sign, transfer is to PSC4056 to 
evaluate the next part of the 
expression, otherwise, control is 
returned to the caller. 


An error is given to indicate 
that BCD characters are not 
allowed in a logical expression 


and transfer is to PSC4024. 


This routine evaluates logical 
expressions at the second level 
of hierarchy, that is, logical 
operands separated by ‘and' 
signs. If the routine is entered 
at PSc4124 it will evaluate a 
logical relational expression. 


The recursive accumulator is set 
to TRUE and the input pointer 
decremented to the previous 
character. 


The next nonblank character in 
the input stream is accessed and 
an EBC NOT sign exclusive ORed to 
the recursive operator. Note 
that the recurSive operator is 
zero on entry to this routine. 
If the current operator is a NOT 
Sign, transfer is to PSC4088 to 
slide over the NOT sign and get 
the next character. 


RETRIEVAL is called to evaluate 
the logical operand. 


If the operand was preceded by an 
odd number of NOT signs, result 
is inverted. If the result is 
FALSE it is left alone, otherwise 


it is set from the recursive 
accumulator. 
If the current character is an 


AND sign, the operator is set to 
Zero. The current result is 
saved in the recursive accumula- 
tor and transfer is to PSC4088. 
Otherwise, control is returned to 
the caller. 


If the paren counter is not zero, 
transfer is to PSC4050 to evalu- 
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ate this 
logical. 


expression as a normal 


The current character is saved as 
a relational operator and the 
next nonblank character is 
accessed. The logical relational 
switch is turned off. 


This code checks for an expres- 
sion of the form (A=+). 
The input pointer saved at 
PSC3998 is restored. 


If this is a logical or literal 
relational of the form (A=+) or 
(A="BCE") transfer ‘is to PSC4240. 


The arithmetic operands on _ each 
side of the relational operator 
are evaluated. 


The result is set to a default of 
FALSE. If a logical value was 
found in the evaluation of the 
arithmetic operand, transfer is 
to PSC4#194. If the operator was 
a less than or greater than sign, 
the appropriate branch is’ taken. 
Otherwise, the results are con- 
pared and if equal, the return 
result is set to TRUE, otherwise 
it is set to FALSE. 


An error is given to indicate 
invalid format in a relational 
expression and transfer is to 
PSC4654. 


An error is given to indicate 
invalid format ina literal rela- 
tional expression. The result is 
set to FALSE and if this is a 


logical relational of the form 
(A=+) control is returned to the 
caller. Otherwise, a loop is 


initiated to slide over the right 
hand literal operand. 


This code compares the left and 
right hand operands and sets the 
result to TRUE or FALSE according 
to whether the operator was a 
less than or greater than sign. 


This code collects the left-hand 
operand of a literal or logical 
relational expression. Note that 
the left-hand operand must be an 
alphabetic symbol and the opera- 
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PSC4#262 


PSC4264- 
PSC4 268 


PSC4H272- 
PSC4296 


PSC4300- 
PSCH320 


TRITHEXP 


ARITHEXP 


PSC4336- 


PSC4338 


PSC4340- 
PSC4356 


PSC4360- 
PSC4368 


PSC4380- 
PSC4H390 


tor must be an equal or pound 


Sign. % 

The next character after the 
operator is now saved as the 
operator. 

The value for the left hand 


operand is read from COMMON and 
the result is set to a default of 
TRUE. If this is a logical rela- 
tional, transfer is to PSC4300. 


This code compares 
character between the 
right-hand operands. If a 
equal character is found, 
result is set to FALSE. 


character by 
left and 
non- 
the 


This code will set the result to 
TRUE or FALSE according to wheth- 
er the current operator is a plus 
or a minus sign respectively. 


This entry into ARITHEXP will 
allow for the detection of a 
stand-alone plus or minus sign as 
an operand. 


This recursive routine evaluates 
arithmetic expressions at the 
first level of hierarchy and 
leaves the floating-point value 
of the expression in the result 
register. 


The next nonblank character is 
accessed and the result is set 
with a default of zero. 


If the current character is not a 
plus or a minus sign and _ the 
operator is not zero indicating 


that this is not the first 
operand evaluation, control is 
returned to the caller. Other- 


wise, the operator is set toa 
default of a plus sign and trans- 
fer is to PSC4394. 


The plus or minus sign is' saved 
as the operator and if the next 
character is alpha, numeric, a 
left parenthesis, or a period, 
transfer is to PSC4394. 


If the single logical operand 
switch is on, the WSYM TRUE or 
FALSE switch is turned on and 
control is returned to the 


caller. 


PSC4394- 
PSC4396 


PSC4398- 


PSC4410 


HIER2A 


PSC 4418- 
PSC4H420 


PSC4424- 
PSC4H4 26 


PSC4432- 
PSC4450 


RETRIVA, 
RETRIEVL 


PSC 4468- 
PSC4H4HT0 


PSC4472- 
PSC4HU92 


PSC4500- 
PSC4506 


PSC4512- 
PSC4518 


PSc4524- 
PSC4560 
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The current result is saved in 
the recursive accumulator, a 


Single logical switch is turned 
off, and HIER2A is called to 
evaluate the operand at the 


second level of hierarchy. 


The result returned by HIER2A is 
added to or subtracted from the 
recursive accumulator. 


This routine controls the evalua- 
tion of arithmetic expressions at 
the second level of hierarchy. 


Blanks are suppressed and RETRIE- 
VAL is called to retrieve the 
arithmetic operand. 


If the current character is not a 
multiply or a divide sign, con- 
trol is returned to the caller. 


The next operand is collected and 
the result is adjusted by it 
according to whether the operator 
is a slash or an asterisk. 


These recursive routines collect 
Single-valued operands. That is, 
symbols, numeric constants, or 
parenthesized expressions. 


If a numeric 
control is 
caller. 


field is found, 
returned to the 


If the current character is a 
left parentheses, ARITHEXP is 
called to evaluate the arithmetic 
operand. 


On entry to collect ae logical 
operand if the current character 
is a left parenthesis LOGICALT is 
called to evaluate the logical 
operand. 


If the current character is not 
alphabetic, an error is given to 
indicate invalid format in an 
expression and control is 
returned to the caller. 


This code will collect the alpha- 
betic symbol optionally preceded 
by an S‘ and will either read the 
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PSC4574— 
PSC4584 


PSC4588- 
PSC4592 


RCALL, 
RRETURN 


PSC4610- 
PSC4616 


PSC4620- 
PSC4624 


PSC4638- 
PSC4#650 


PSC4652- 
PSC4H654 


EXPER 


appropriate value from COMMON at 


PSC4534 or compute the result 
from the subscript at 
PSC4538-PSC4560. 

If the operator is an EBCDIC 
right parenthesis, a logical 


result is given. 


If a logical value was found in 
the evaluation of an arithmetic 
operand, the logical value switch 
is turned on. 


This subroutine performs linkage 
to and from recursive subrou- 
tines. It performs a recursive 
call to the subroutine indicated 
by the parameter following the 
BAL to RCALL. It saves the 
return address, the current 
recursive operator, and the 
recursive accumulator. Entry to 


the routine at the label RRETURN 
performs the return linkage. It 
restores the current operator, 
the recursive accumulator, and 
branches to the return address. 
The recursive call save area has 
room for 64 entries. 


If the save area is full, trans- 
fer is to Ppsc4652 to give an 


error. 
The parameters are saved, the 
save area pointers are incre- 
mented, and control is passed to 
the requested recursive 
subroutine. 


The save area pointer is decre- 
mented, the information saved at 
PSC4620 is restored, and control 
is returned to the last caller of 
RCALL. 


An error is given to indicate 
that the expression was too com- 
plicated to evaluate. The save 
pointer is reset to the beginning 
of the save area and transfer is 
to PSCH#644, 


This subroutine performs an error 
number computation and call to 
the ERROR routine for COMMON 
errors found in input stream 
expressions, phrase-defined 
expressions, and execution- 
defined sym2o0l subscript expres- 
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PSC4668- 
PSC4#678 


PSC4680- 
PSC4700 


CHTEST 


PSC4718- 
PSC4722 


PSC4724- 
PSC4730 


PSC4&736 


DISKWRD 


DISKWT, 
DISKRD 


UGCHAR 


MACHK 
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sions. It also performs a scan 
to the next comma or semicolon in 
the current input stream if the 
*TO COMMA! switch is on. 


The error number is incremented 
by one if this is an execution- 
defined symbol subscript. it is 
incremented by two for a phrase- 
defined expression. For an input 
stream expression, it is left 
alone. 


The error diagnostic is given and 
if the ‘TO COMMA‘ switch is on, 
the input stream pointer is 
incremented until the next comma 
or semicolon is found. 


This is the character fetch rou- 
tine called to fetch and test the 
next character in the current 
input stream. 


If the special exit is not on, 
transfer is to PSC4&724. If the 
Switch is nonzero, it contains 
the address of the routine to be 
given control. The routine given 
control must return to PSC4724. 


The next character in the input 
stream is tested for NULL 
(Hex00). If a NULL is found, a 
subroutine INEUTRD is called to 
read the next record from the 


current PLAN input device. 


The condition code is set to 
indicate whether the current 
character is alphabetic, numeric, 
or special character. 


Since the disk read and write 
routines do not return control 
until the information is in core, 
this is a dummy wait routine. 


These two routines will read and 
write information to the disk. 


This entry into PSCAN is used by 
the GUSER subroutine from within 
a user-exit program. It will 
fetch the next character from the 
input stream and return control 
to GUSER. 


This routine is used by PHRGOT on 
a Level 1 phrase to check the 
Size of the managed array before 
setting it to FALSE. If the size 
of the managed array is larger 
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COMCHK 


SETTOPCM 


INPUTSAV 


PSC50614 


PSC50616- 
PSC50618 


INPUTSVA 


PSC50632 


PSC50636- 
PSC50640 


PSC50648- 
PSC50714 


PSC50730- 
PSC50762 


than the total size of COMMON, an 
error is given. 


This subroutine will check to see 
whether a subscript is within 
COMMON. If not, an error is 
given before returning control to 
the caller. Note that this sub- 
routine is actually called any 
time a question block is shown in 
the flowchart which says ‘Is sub- 
script within COMMON‘. 


This routine is used by PHRGOT to 
set a pointer to the top of the 
currently-defined COMMON. 


This subroutine will save the 
EBCDIC image of the current com- 
mand being executed and PFINPUTA 
of PFILE. It will also save the 
residual of the last record fol- 
lowing the semicolon in PFINPUTB 
of PFILE. 


If the input command is already 
been saved, control is returned 
to the caller. 


The input saved switch checked at 
psc50614 is turned on and the 
command sequence number in the 
resident loader is incremented. 


This entry to this routine is 
used by TESTCHKE to push a com- 
mand from a check entry. 


If entry to this routine was at 
INPUTSVA, transfer is to 
PScC50764. 


If this is a repeated command, 
the repeat switch in the resident 
loader is turned off. Otherwise, 
transfer is to PSC50730 to save 
the current command. 


If this is not a check entry push 
and the phrase print option is 
on, the current command is 
printed on the current PLAN out- 
put device before returning con- 
trol to the caller. 


This code will check for a resid- 
ual record following a semicolon 
in the command. If a residual is 
found it is written to PFINPUTB 
of PFILE. Otherwise, the input 
on disk switch checked at PSC092 
is inverted. 
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PSC50764 The current command is written to 
PFINPUTA and transfer is to 
PSc50648. 

DFJPSRTA, DFJGSRTA 


DJFPSRTA and DFJGSRTA are the the block 
sort routines for the PLAN DYNAMIC file and 
PERMANENT file respectively. They are the 
first of two loads and may be required to 
accomplish the sort. This modules reads a 


core load from the file, sorts it and 
returns it to the file. This process 
continues until end-of-file. As each is 
written out, a sequence check is’ made 


against the preceding block. If no 
sequence check has occurred when end-of- 
file is encountered the name of the in- 
place merge module is expected from the 
pop-up list. This module is invoked 
through the LCHEX subroutine by the subrou- 
tines PSORT and GSORT. The technique used 
for sorting is to create an ordered string 
of record pointers using a binary chart 
search on the existing string. After the 
record pointers have been ordered, the 
records themselves are rearranged to their 


proper place in core and the block is 
written out. The only difference between 
these modules is that DFJPSRTA uses the 


READ/WRITE subroutines and DFJGSRTA 
the RDATA/WDATA subroutines. 


uses 


located and 
SORT control 


ERASABLE COMMON is 
the address of the 
fields is saved. 


RTA1130 


RTA1370 The SORT control fields 


validated. 


are 


The amount of available core is 
calculated. On OS this will be 
all of the available program area 
outside of this module. On _ DOS, 
it is a fixed buffer within this 
module. 


RTA2570 


RTA2630 The SORT area pointers are calcu-_ 


lated and initialized. 


ID(2) of the file control block 
is rounded to the nearest record 
length. 


RTA2970 


RTA3030 If there are less than two rec- 
ords in the file, transfer is to 
RTA3430. 

RTA3170 The last record save area is 
cleared to ensure that the 
sequence check on the first block 
is correct. 


RTA3370 If an end-of-file has not 
occurred, transfer is to RTA3830. 
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RTA3430 


RTA3550 


RTA3650 


RTA3670 


RTA3830 
RTA4030 


RTA4210 


RTA4350 


RTA4G470 


RTA4550 


RTA4570 


RTA4610 


RTA4630 


RTA4S770 


RTA5470 


RTA5790 


RTA5970 


have 
sort, 


If no sequence breaks 
occurred during the block 
transfer is to RTA3670. 


The sort record area pointers are 
reset for the merge. 


Exit is to the next load entry in 
DFJPLAN to call the MERGE module. 


Exit is to the next load entry in 


DFJPLAN but the pop-up list is 
updated so that the merge is 
skipped. 


A block of records is read from 
the file. 


The number of records in the sort 
area is calculated. 


The SRA list is initialized. 
This is a list of pointers to 
each record in the sort area. 


If only one record is in the sort 
area, transfer is to RTA6190. 


The initial SRA list string is 
created. This is done by sorting 
the first two records in the sort 
area and possibly exchanging the 
first two pointers in the list. 
The list pointer is set to the 
end of the string. 


If the list pointer is at the end 
of the SRA list, transfer is to 
RTA5790. 


The subroutine SORT is called to 
sort the next two records pointed 
at by the LIST pointer. 


If the records are in sequence 
transfer is to RTA4550. 

The current SRA list string 
search using a binary search 


method to locate the insert point 
for the out-of-sequence record 
pointer. 


the out-of- 
into 
is to 


The pointer to 
sequence record is inserted 
the string and transfer 
RTA4550. 


The SRA list is searched and all 
pointers to records that are out 
of place are flagged. 


All out-of-place records are 
exchanged to their correct place 
in core. 
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RTA6190 


RTA6250 


RTA6270 


RTA6330 


RTA6410 


RTA6590 


SORT 


RTA7350 


RTA7430 


RTA7550 


RTA7590 


RTA7630 


RTA7650 


RTA7670 


RTA7690 


RTA7750 


RTA7790 
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The subroutine SORT is called to 
check the last high record in the 
previous block against the low 
record in this block. 


If a sequence break has not 
occurred, transfer is to RTA6410. 


If this is not the first sequence 
break, transfer is to RTA6410. 


The sequence break KDIS is saved. 


The last record in this block is 
saved in the last record saved 
area. 


The block is 
the file 
RTA3370. 


written back onto 
and transfer is to 


The SORT subroutine compares two 
records and returns the results 


of the compare in the register 
WINNER. 

The address of the A and B_ rec- 
ords is determined. 

The field displacement in the 


record of the SORT field is 


determined. 


The fields are compared. This is 
done by calling an appropriate 
compare routine for the type of 
sort involved. Return is to 
RTA7590 if the fields are equal. 


If this is not the last control 
field transfer is to RTA7430. 


This is the return point if the 
compare routines find an unequal. 
The address of the A area record 
is set to be the WINNER. 


If the records were not equal, 
transfer is RTA7670; otherwise, 
control is returned to the caller 
with the A record as the WINNER. 


If the A record was high transfer 
is to RTA7750. 


If this is not an ascending sort 
transfer is to RTA7790; other- 
wise, control is returned with 
the A record as a WINNER. 


If this is not a descending sort 
transfer is to RTA7790; OTHER- 
WISE, THE A _ area record is 
returned as the WINNER. 


The B area record is set as the 
WINNER and control is returned to 
the caller. 
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DFJPSRTB, DFJGSRTB 

DFJPSRTB and DFJGSRTB are the in-place 
merge routines for the DYNAMIC file and 
PERMANENT file sort respectively. They are 


the second of two loads and may be required 


to accomplish the sort. 


These modules are 


only loaded if DFJPSRTA or DFJGSRTA find a 


sequence break. 


A merge is done by relo- 


cating the out-of-sequence block to the 


Managed area file 
descending merge. 


and then performing a 
The difference between 


the two modules is that DFJPSRTA uses’ the 


READ/WRITE 


subroutines while DFJGSRTA uses 


the RDATA/WDATA subroutines. 


RTB1010 


RTB1450 


RTB1850 


RTB2270 


RTB2530 


RTB3030 


RTB3090 


RTB3170 


RTB3230 


RTB3310 


RTB3410 


RTB3490 


RTB3650 


RTB3950 


The size of the working area 
available on the managed area 
file is calculated. 

The merge area pointers are cal- 


culated and initialized. 


The next out-of-sequence block is 
located. This is done by reading 
two records which bridge two 
blocks in the file and comparing 
them for a sequence break. 


The merge 
initialized. 


pointers are 


The count for the READ operation 
is determined. This may be less 
than a full block depending on 
the size of the work area avail- 
able in the managed area file. 


If an end-of-file has not 
occurred on the file transfer is 
to RTB3170. 


The merge switch is set to force 
the beginning of the merge at the 
end of the READ of this block. 


If there is room in the managed 
area file transfer is to RTB3410. 


The size of the managed area file 
work area is used for a count to 
read the file. 


The merge switch is set on to 
force the merge to the end of 
this read. 


A block is read from the file. 

A check is made for an out-of- 
sequence record. If this occurs, 
transfer is to RTB4310. 


The biock is written onto the 
managed area file. 


If the merge switch is on, trans- 
fer is to RTB4&450. The last 


RTB4230 


RTB4310 


RTB4450 


RTB4470 


RTB4670 


RTB4770 


RTB4830 


RTB4950 


RTB5250 


RTB5290 


RTB5450 


RTB5470 


RTB5570 


RTB5690 


RTB5730 


RTB5770 


RTB5910 


RTB5950 


RTB6090 


RTB6150 
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record in the block is saved to 
perform a sequence check on the 
next block. 


A check is made to see if the 
merge can start because the last 
record of the block just read is 
higher than the last record of 
the blocks that were in sequence 
in the file. RTB2530 to read the 
next block from the file. 


The KDIS' for the sequence break 
record is saved for the next 
cycle. 

The MERGE switch is reset. 


The working area file pointers 


are initialized. 


The merge areas are primed. 


The next output buffer is 
located. 
If the output area is not full 


transfer is to RTB5290. 


The output area is rewritten onto 
the file. 


If the end-of-merge switch is on, 
transfer is to RTB1850. 


If the B area is being flushed 
transfer is to RTB5570. 


The subroutine SORTZ is called to 
compare the A and B records. 


If the A record was in sequence, 
transfer is to RTB5690. 


The B area record is set as a 
WINNER. Transfer is to RTB5730. 
The A area record is set as a 
WINNER. 

The winning record is moved to 
the output area. 


If the B record was the WINNER, 
transfer is to RTB6750. 


If the A record area is empty, 
transfer is to RTB6090. 


The A area record pointer is 
updated. Transfer is to RTB4770. 
If an end-of-file has not 


occurred on the PLAN file, trans- 
fer is to RTB6270. 


If the B area is being flushed, 
transfer is to RTB6230. 
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RTB6190 


RTB6230 


RTB6270 


RTB6490 


RTB6630 


RTB6750 


RTB6790 


RTB6930 


RTB6970 


RTB7270 


RTB7330 


SORT 


RTB8170 


RTB8250 


RTB8390 


RTB8410 


RTB8450 


RTB8470 


RTB8490 


The flush switch is set for the B 
area and transfer is to RTB4770. 


The end-of-merge switch is set 
and transfer is to RTB4950. 


The KDIS and KOUNT for the next A 
area block are calculated. 


The A area pointers are 
initialized. 


The next A area block is read and 
transfer is to RTB5910. 


If the B area is empty, transfer 
is to RTB6930. 


The B area record pointer is 
updated and transfer is to 
RTB4770. 


If an end-of-file has occurred on 
the working area file, transfer 
is to RTB6230. 


The KDIS and KOUNT for the next 
working area file block are 
calculated. 


The B record area pointers are 
reset. 


The next block is read from the 
working area file and transfer is 
to RTB6750. 


The SORTZ subroutine is used to 
compare two records. The result 
is returned by branching to ei- 
ther caller plus zero or caller 
plus 4. 


The sort control fields are 
located. 


The next sort field is located. 


The fields are compared. This is 
done by calling an appropriate 
compare routine for the type of 
sort involved. Return is to 
RTB8410 if the fields are equal. 


If this is not the last field, 
transfer is to RTB8250. 


The A area record is set as a 
WINNER. 


If the records were not equal, 
transfer is to RTB8490; other- 
wise, control is returned to the 
caller with the A record as the 
winner. 


If the A record was high transfer 
is to RTB8570. 
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RTB8570 If this is not a descending sort, 
transfer is to RT1B8610; other- 
wise, control is returned to the 
caller with the A record as the 
winner. 


RTB8610 The B area record is set as the 
Winner and control is returned to 
the caller. 


DFJPSTSV 


This module provides the statement save 
facility of PLAN. It is loaded for execu- 
tion under any of the following conditions: 


1. The standard PLAN command SAVE has been 
given to read and save numbered com- 
mands in the input stream. 


2. Scheduled by PSCAN to save a numbered 
command found in the input. stream. 


3. Scheduled by the resident loader when 
PLAN Switch Word 2 contains the number 
of a command to be retrieved for 
execution. 


Halts: None 


Error Conditions: PLAN diagnostics pro- 
duced directly by this module are in the 
range of 170-179. 


Subroutines: 
Monitor: USBSC 
PLAN: GTVAL, PFSPC, FIND, READ, NDEF, 
TRUE, FALSE, WRITE, PSTS1, PUSH, INPUT, 
PUNPK, PPACK, LRET, PSBFB, PLINP, PEOF, 
PAIN 


Switches: 
PLAN Switch Word 1- Used for saving 
ID(1) (file number) of the save statement 
file. 
PLAN Switch Word 2 - Contains the number 
of the last statement to be executed. 
PLAN Switch Word 3 - Contains the number 
of the last statement to be executed plus 
drive code, times 2048. 


PSTSV- 

PST520 If Switch Word 2 does not contain 
a statement number, transfer is 
to PST1440 to perform the expli- 
cit of implicit save. 


PST540- 
PST560 The file number is picked up from 
PLAN Switch Word 1 and FINDIL is 
called to open the file. 


PST590- 
PST750 If the file is less than 28 words 
long or the first word of the 
file is not a logical TRUE, the 
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PST770- 
PST810 


PST840—- 
PST890 


PST895- 
PST910 


PST930- 
PST1050 


PST1070- 
PST1090 


PST1110- 
PST1140 


PST1170 


PST1190 


PST1200- 
PST1250 


28-word header is created and 


written back to the file. 


ID(2) of the file control block 
is set to the file size indicated 
in the file header. On an execu- 
tion request transfer is to 
PST930, otherwisv., transfer is to 
PST1500 or PST2630 for implicit 
or explicit save respectively. 


Switch Words 1 and 3 are cleared 
to suppress further execution of 
save statements. The file number 
is used as an error code and the 
error number is set to 171 to 
indicate an invalid saved state- 
ment file. 


Switch Word 2 is cleared to sup- 
press SAVE statement execution 
and PST1 is called to process the 
error and return control to the 
resident loader. 


This code chains through the 26- 
word control blocks until the 
control block containing the 


searched for statement number is 


found. If there is no control 
block for this statement, error 
172 is given to indicate the 


statement does not exist. 


If the statement does exist, the 


first word is read into core. 


If the statement is not where it 
should be in the file, error 173 
is given to indicate that the 
file has been destroyed or 
overwritten. 


T€ Switch Word 3 indicates there 
is another statement to be 
executed, transfer is to PST1260 
to find the next higher statement 
in the file less than Switch Word 
3. 


Switch Word 2 is set to QQ to 
indicate the last statement has 
been executed. 


The full statement is read into 
core, the current statement save 
file number is saved in PLAN 
Switch Word 1 and PUSH is called 
to pass the command and control 
to PSCAN. 


PST1260- 
PST1400 


PST1440- 
PST1480 


PST1500- 
PST1610 


PST1630- 
PST1670 


PST1700- 
PST2100 


PST2170- 
PST2420 


PST2450- 
PST2480 


PST2500 
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This loop searches the file for 
the next statement to be 
executed. This is done so that 
Switch Word 2 will point to the 
next statement on exit from 
PSTSV. If no statement is found 
with a number less than that 
found in Switch Word 3, then 


Switch Word 2 is cleared to indi- 


cate that all statements have 
been processed. 
On an implicit or explicit save, 


this code is 


file. 


used to open the 


On an implicit save, this code is 


used to access the phrase image 
from PFINPUTA in PFILE. The 
statement number is collected 


from the beginning of the command 
and the numeric characters are 
replaced with blanks. This is 
done so that later execution of 
the command from the file will 
not cause PSCAN to execute anoth- 
er implicit save. 


the file to 
exists with 


This code searches 
see if a statement 
the same number. 


This code will delete the current 
statement from the file and up- 
date the file to reflect the 
deletion. In other words, all of 
the information in the file 
beyond the statement deleted is 
moved down over the deleted 
Statement. The control block 
chain pointers and individual 
statement pointers in each con- 
trol block are updated to reflect 
the shift. 


This code chains through the con- 
trol blocks until the control 
block for the statement to be 
added is found. If new control 
blocks are needed, they are 
created and chained together. 


the statement 
being added is placed in the 
control block and the block is 
written to the file. 


The pointer to 


statement to be added is 


file. 


The 
written to the 
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PST2540- 


PST2560 


PST2590 


PST2630- 


PST3035 


PST2630- 


PST2670 


PST2680 


PST2700- 
PST2710 


PST2730- 
PST2740 


PST2770- 
PST2810 


PST2840- 
PST2860 


PST2900 


PST2920 


PST2950 


PST2990- 
PST3035 


The second word of the file head- 
er is updated to indicate the 
next avalable space in the file 
and the file number is saved in 
PLAN Switch Word 1. 


If this is an implicit save, LRET 
is called to return control to 
the resident loader. 


This code will read a statement 
from the input stream. 


PSBFB is called to set up the 
input buffer for the current PLAN 
input device. The statement 
number is initialized to 0 and 
the pointer is initialized to the 
first character in the statement. 


The number collect switch is 
turned on to indicate collection 
of a statement number is legal. 


is called to read a record 
from the current PLAN input 
device. If logical or physical 
end-of-file was found, control is 
returned to the resident loader. 


PLINP 


The next character in the state- 
ment is read. 


If the number collect switch is 
on and this is a numeric charac- 


ter, it is added to the statement 
number. 

The number collect switch is 
turned off and the number of 


characters in the statement is 


incremented by 1. 


Tf the semicolon at the end of 
the statement has been found, 
transfer is to PST2970. 


Tf all 75 characters have been 
processed, transfer is to PST2700 
to read tae next record. 


If the character is not a blank 
or numeric, transfer is to 
PST2840 to turn off the number 


collect switch. 


T£ this was a non-numbered state- 
ment, PUSH is called to pass the 
statement and control to PSCAN. 
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PST3080- 

PST3270 This code chains through the con- 
trol blocks until the control 
block containing the statement 
number to be added is found. If 
new control blocks’ are needed, 
they are created and chained 
together. 

DFJPTDMP 
The DFJPTDMP module is the utility module 


to provide a tabular listing of the PLAN 
phrases that exist in PFILE, that is, the 
PLAN file dictionary. This module requires 
use Of all of a 840-word communication 
array. No data may be carried over through 
use of this module. It must be called by 
the DUMP PHRASES command which in turn 
invokes execution of the CONTINUE DUMP 
PHRASES command. These commands set up 
extensive literal information, constant 
data, and control parameters. The DFJPTDMP 
module is the mainline for the phrase table 
dump. It calls several subroutine modules. 
The dump is structured in this manner 
because of its use on both System/1130 and 
System/360. On the 1130 system, the entire 
core image module is too large for an 8K 
Imemory . Therefore, the subroutines that 
dump some of the tables are loaded as 
monitor system locals when running in an 8K 
environment. When running in a 16 or 32K 
environment, the modules are not localed 


and therefore, throughput is improved. The 
system, although written in FORTRAN, is 
written to dump the phrase table on both 


the 1130 System and the System/360 by a 
technique that makes the difference in 
construction of the dictionaries on those 
two systems invisible. The extent of the 
dump produced is controlled by the phrase 
with a parameter called LEVEL. If LEVEL is 
zero Or one, only the header of the phrase 
is printed. The maximum value for LEVEL is 
six. Any value of six or greater produces 
an entire tabulated listing of the phrases. 
A value in between zero and six produces a 
dump of the internal tables up to and 
including the table number equal to the 
LEVEL number, that is, if the LEVEL level 
is four, the internal dictionary entry 
tables 1, 2, 3, and 4 will be dumped. The 
PBTST routine is used extensively in the 
dump to do bit extractions which then 
allows the dump activity to be programmed 
in the FORTRAN language. 

PTD770 The internal PFILE record size is 
set as either 64 bits or 80 bits. 
This choice of internal bit size 
Structre makes the difference in 
the record size on the System/360 
and 1130 invisible. Since a 
record on the 1130 system is one 
sector, that is 320 words, the 
record is ivided into 64ths 
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PTD830 


PTD850 


PTD880 
PTD900 
PTD920 


PTD1000 


PTD1020 


PTD1040 


PTD1060 
PTD1080 


PTD1100 


yielding an 80 bit internal reco- 
rd size. System/360 yields a 
record size of 64 bits. This 
deternination is based upon a 
value set by the DUMP PHRASES 
command. The value is the 
machine type on which the dump is 
being. run, that is, 1130 or 360. 
If the system type is not in the 
command a completely garbage dump 
can be anticipated. 


The GDATA subroutine is called to 
open the PFILE. As file number 
255, the drive code is picked up 
as the parameter supplied by the 
DUMP PHRASES command. 


The XACES subroutine is called to 
read the phrase validity table. 
The XACES subroutine masks’ the 
backward construction of the 1130 
PFILE by converting the sector 
number into the proper GDATA dis- 
placement for the appropriate 
system upon which the dump is 
being produced. 


A single buffer set A is assigned 
to the output device. 


The printer is skipped to a new 
page. 


A loop is initialized for the 256 
checksums. 


The synonym indicators are reset. 
The synonym indicators are words 
that contain the displacement and 
sector number which contain the 
next phrase of equal checksum in 
the phrase chain. If the indica- 


tors are zero no phrase of equal 
checksum remains in the chain. 
The synonym indicators are 


printed at the right-hand side of 
the phrase table dump. 


A check is made in the validity 
table to determine if there is a 


phrase with this check sum. If 
there is not, transfer is to 
PTD2850. 


number that includes 
of the phrase is 


The sector 
the start 
determined. 


The check sum heading line is set 
up. 


The check sum number is set to 
the print buffer. 


The internal record displacement 
to the start of the phrase is 
calculated. Since a phrase must 


PTD1180 


PTD1200 


PTD1230 


PTD1240 


PTD1250 


PTD1320 


PTD1330 


PTD1350 


PTD1370 


PTD1390 


PTD1410 


PTD1440 


PTD1510 


PTD1540 


PTD1550 
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by definition be included within 
two sectors, two sectors are 
always read. 


The DFJPTDP1 subroutine is called 
to produce a heading line for the 
phrase. The heading line 
includes such things as the 
phrase type, the phrase name, and 


level, and also includes’ the 
synonym indicator bits. The 
DFJPTDP1 subroutine is called as 


a PLAN LOCAL. 


If the phrase table dump is run- 
ning under level 0 or 1 transfer 
is to PTD2850. 


A double space is set up for the 
printer. 


The internal bit index is incre- 
mented by 16. 


A determination is made to see if 
there are additional internal 
tables in this phrase entry. If 
there are not transfer is to 
PTD2850. 


The XTRAC subroutine is called to 
extract the 8-bit table length. 


If this is a null table transfer 
is to PTD1370. 


The DFJPTDP2 subroutine is called 
to dump the initialization values 
The DFJPTDP2 subroutine is called 
as a monitor system LOCAL on the 
8K version of the 1130 phrase 
table dump. 


The XTRAC subroutine is called to 
extract the 8-bit table control 
code. 


If this is the end of this phrase 
entry transfer is to PTD2850. 


A check is made to determine that 
this a header for a new internal 
phrase table entry. If it is not 
transfer is to PTD2750. 


If we are running at level 2 
transfer is to PTD28508. 


The XTRAC subroutine is called to 
extract the 8-bit table length. 


If this is a null table transfer 
is to PTD1570. 


The DFJPTDP3 subroutine is called 
to dump the symbol table. The 
DFJPTDP3 subroutine is called as 
a PLAN LOCAL. 
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PTD1570 


PTD1600 


PTD1620 


PTD1640 


PTD1660 


PTD1720 


PTD1750 


PTD1770 


PTD1780 


PTD1790 


PTD1810 


PTD1830 


PTD1850 


PTD1870 


PTD1890 


PTD1920 


PTD1930 


PTD1940 


The XTRAC subroutine is called to 
extract the 8-bit table control 
code. 


If we are running at level 3 
transfer is to PTD2850. 


The internal switch is set to 
indicate that the program list to 
be dumped are those programs 
associated with the phrase entry 
keyword program. 


A test is made to determine if 
there additional internal tables 
in this phrase entry. If there 
is not transfer is to PTD2850. 


A test is made to determine if 
this is a valid header for an 
internal phrase entry table. LE 
it is not transfer is to PTD2750. 


The XTRAC subroutine is called to 
extract the 8-bit table length 
control indicator. 


A test is made to determine if 


this is anull table. If it is 
transfer is to PTD1960. 
The header line for the internal 


table 4 is set to print. 
The table 4 header is printed. 


The XTRAC subroutine is called to 
extract the first bit of the 
program entry. 


If the bit is on the entry is 
determined to be alphabetic and 
transfer is to PTD1890. 


A 32-bit binary field is 
extracted by a call to the XTRAC 


subroutine. If the 32-bit field 
is all zeros transfer is to 
PTD1890. 


The numeric zero 
is set to print. 


program number 


The bit index is incremented by 
64. Transfer is to PTD1940. 


The EXTRAC subroutine is’ called 
to extract a 64-bit program name 
entry. 


The bit index is 
64. 


incremented by 


The program name is set to print 
by a call to PAOUT. 
number is 


A program name or 


printed. 


94 FLOWCHART NARRATIVES 


PTD1950 


PTD1960 


PTD1980 


PT2000 


PTD2060 


PTD2080 


PTD2100 


PTD2140 


PTD2160 


PTD2200 


PTD2260 


PTD2280 


PTD2300 


PTD2320 
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A check is made to determine if 
this internal table is entirely 
processed. If it is not transfer 
is to PTD1490. 


If the program list which we just 
processed was associated with the 


phrase keyword PROGRAM, proces- 
Sing will continue at PTD1980. 
If it is associated with the 


keyword EXIT transfer is to 
PTD2650. If it is associated 
with the keyword VERB transfer is 
to PTD2680. 


The XTRAC subroutine is called to 
extract the 8-bit table control 
code for table 5. 


made to determine if 
additional internal 


A test is 
there are 


tables in this phrase entry. If 
there are not transfer is to 
PTD2850. 

A check is made to determine if 


the indicator is a valid indica- 
tor for a new internal table. If 
it is not transfer is to PTD2750. 


The XTRAC subroutine is called to 
extract the 8-bit table length. 


A test is made to determine if we 
are running at DBUG level 4. If 
we are transfer is to PTD2850. 


to determine if 
there are check entries for this 
phrase. If there are not trans- 
fer is to PTD2260. 


A test is made 


Table 5 header is set to print. 


A test is made to determine if 
all check entries have been pro- 
cessed. If they have transfer is 
to PTD2260. Otherwise, the 
DFJPTDP5 subroutine is called to 
dump the check entries. 


The XTRAC subroutine is called to 
extract the 8-bit table control 
code. 


A test is made to see if this is 
the end of the phrase entry, that 
is, a test for 7FFF. If it is 
transfer is to PTD2850. 


A test is made to determine that 
this is a valid new table indica- 
tor. If it is not transfer is to 
PTD2750. 


The XTRAC subroutine is called to 
extract the 8-bit table length 
code. 
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PTD2340 


PTD2390 


PTD2410 


PTD2490 


PTD2470 


PTD2490 


PTD2510 


PTD2530 


PTD2550 


PTD2600 


PTD2610 


PTD2630 


PTD2650 


PTD2680 


PTD2750 


PTD2810 


A test is made to determine if we 
are running at DBUG level 5. If 
we are transfer is to PTD2850. 


A test is made to determine if 
there are expressions associated 
with this phrase. If there are 
not transfer is to PTD2480. 


The DFJPTDP6 subroutine is called 
to dump the phrase associated 
expressions. DFJPTDP6 is called 
as a PLAN LOCAL. 


The internal switch is set to 
indicate that the program list to 
be dumped is associated with the 
keyword EXIT. 


The XTRAC subroutine is called to 
extract the 8-bit table control 
code. 


A test is made to determine if 
the control code is 7FFF in the 
phrase indicator. If it is 
transfer is to PTD2850. 


A test is made to determine if 
the control code is a valid new 
table indicator. If it is not 
transfer is to PTD2750. 


The XTRAC subroutine is called to 
extract the 8-bit table length 
code. 


A test is made to determine if we 
are running at DBUG evel 5. If 
we are transfer is to PTD2850. 


A test is made to determine if 
the program list to be dumped is 
associated with the phrase key- 
word EXIT. If it is not transfer 
is to PTD2630. 


The EXIT list header is set to 
print and transfer is to PTD1790. 


A VERB list head is set to print. 
Transfer is to PTD1790. 


The internal switch is set to 
indicate that the program list to 
be dumped is associated with VERB 
and transfer is to PTD2470. 
The printer is skipped one line. 
The contents of the switch words 
is. dumped in hexadecimal 
notation. 


A DFJPTDMP module is terminated 
by a CALL LRET. 
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PTD2820 The synonym indicators are 
accessed and transfer is to 
PTD1160. 

PTD2850 A test is made of the synonym 


indicators. If the synonym indi- 
cators are zero, there is no 
additional synonym phrase. If 
there is a synonym transfer is to 


PTD2820. 


PTD2870 If all 250 check sums have been 
processed transfer is to PTD2890. 
Otherwise, the loop is incre- 
mented to the next check sum and 
transfer is to PTD1000. 


- PTD2890 The end of the phrase table dump 
message is set to the print area 
and printed. Transfer is to 
PTD2810. 

DFJPTDP1 
The DFJPTDP1 module is a special purpose 


module that is used only by the phrase 
table dump. It is of absolutely no func- 
tion in any other context DFJPTDP1 produces 
the dump of the phrase header information 
as controlled in the header information for 
each phrase entry. Four indicators JSECT, 
L4, L5, and NBUCK which are used commonly 
by the mainline DFJPTDMP and this subrou- 
tine are passed in the call list for 
DFJPTDP1. Additional information common to 
both the mainline and the subroutine are 
passed through COMMON. 


PT1760 A printer double space is set up. 

PT1780 The literal mask for the header 
line is set to the print area. 

PT1830 The XTRAC subroutine is called to 
extract the 1-bit level zero 
indicator. 

PT1840 If this is a level zero phrase 


transfer is to PT1890. 


PT1850 The xXTRAC is called to extract 
the 3-bit level indicator. 

PT1870 If this is a blank level phrase 

transfer is to PT1920. Other- 

wise, transfer is to PT1900. 


The level indicator is set to a 
negative one. The negative 1 
value is established to allow 
entry into the COMMON processing 
that is utilized for all other 
level indicator processing. 


PT1890 


defined in the 
decremented by 


PT1900 The level code 
phrase entry. is 
one. 
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PT1920 


PT1940 


PT1960 


PT11020 


PT11040 


PT11060 


PT11090 


PT11100 


PT11120 


PT11130 


PT11150 


PT11160 


PT11180 


PT11220 


The XTRAC subroutine is called to 


extract the 8-bit phrase size 
indicator. 
The phrase entry size is set to 


the output area. 
is the number of internal PFILE 
records, that is the number of 
80-bit or 64-bit records in PFILE 


The entry size 


on the 1130 PLAN system or 
System/360 PLAN system 
respectively. 


The GDATA displacement of the 


phrase entry is set to output. 
This value is printed to allow 
easier finding by the reader and 
by the user if looking at a 


straight dump of PFILE. 


The XTRAC subroutine is called to 
extract the 1-bit phrase type. 
Phrase types are either object or 
verb. 


to determine if 
If it 


A test is made 
this is an object phrase. 
is transfer is to PT11090. 


VERB is set to the print line to 
override the object designation 
as established in the phrase 
mask. 


The XTRAC subroutine is called to 
extract the 6-bit displacement to 
a chained phrase. This displace- 
ment is what is called synonym 
indicators in the flowchart of 
the phrase table dump routine. 


A dusplacement to the 
phrase is set to the print 


synonym 
area. 


called to extract the 
sector of the 


XTRAC is 
8-bit relative 
synonym phrase. 


sector of the 
set to the 


The relative 
synonym phrase is 
print area. 


A pointer is set to the beginning 
of the phrase name in the phrase 
entry table. 


The print position indicator is 
set to print position 17 for 
output of the phrase name. 


XTRAC is called to extract a 
three-character phrase name 
entry. 


A three-name indicator is set to 
the print area. 
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PT11230 


PT11290 


PT11340 


DFJPTDP2 


This module is a 
used in 
dump module. 
any other context. 
subroutine and by the mainline is 
through 
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The print position indicator is 
indicated by four and the inter- 
nal bit pointer is set to the 
next phrase entry location. 


A test is made to determine if 
the next portion of the phrase 
entry table contains another word 
of the phrase name or the start 
of internal table 2. If there is 
another word in the phrase name 
transfer is to PT11180. 


The phrase entry header line is 
printed. A return to the main- 
line is executed. 


Single function module 
conjunction with the phrase table 
It has no other function in 
Data required for this 
passed 
calling 


COMMON. There are no 


parameters. 


PT2750 


PT2790 


PT2800 


PT2830 


PT2850 


PT2900 


PT2910 


PT2940 


PT2970 


PT21000 


PT21010 


The table 2 header line is 
printed. 

The XTRAC subroutine is called to 
extract the 1-bit format 
indicator. 

If the subscript for this ini- 


tialization value is an expres- 
Sion transfer is to PT2940. 


XTRAC is called to extract the 
14-bit constant subscript. 


The constant subscript is set to 
the print area. 


XTRAC is called to extract the 
1-bit format indicator. 


If this initialization value is 
associated with an implied DO 
transfer is to PT21160. oOther- 
wise, transfer is to PT21280. 


XTRAC is called to extract the 
15-bit name associated with this 
symbolic subscript. 


The name is set to the print 
area. 

XTRAC is called to extract the 
11-bit indicator that indicates 


whether or not this is an implied 
DO. 


If this is an implied DO transfer 
is to PT21160. 
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PT21030 XTRAC is called to extract the 
15-bit subscript. 

PT21050 The subscript is set to print. 

PT21110 The bit pointer is incremented by 
64 and transfer is to PT21340. 

PT21160 XTRAC is called to extract the 
15-bit implied DO displacement. 

PT21200 XTRAC is called to extract the 
16-bit implied DO increment. 

PT21220 The increment is set to print. 

PT21230 XTRAC is called to extract the 
32-bit initialization value. 

PT21250 The bit index is incremented by 
32. 

PT21280 The 32-bit initialization value 
is extracted. 

PT21290 The initialization value is set 
to print. 

PT21320 The bit index is incremented by 
48. 

PT21340 The table 2 line is printed. 

PT21360 A test is made to determine if 
table 2 is completely processed. 
If it is not transfer is PT22790; 
otherwise, a return to the main- 
line is executed. 

DFJIPTDP3 

This module is a single function module 

used exclusively with the phrase table 

dump. It has no use in any other connota- 

tion. All parameters required by this 


subroutine and by the mainline 


are passed 


through COMMON. 


PT3760 


PT3790 


PT3820 


PT3850 


PT3870 


PT3880 


The table 3 header is set to the 
print area and is printed. 


XTRAC is called to extract the 
15-bit data name. 


The name is set to print. 


The bit 
15. 


index is incremented by 
XTRAC is called to extract the 
2-bit user exit number. 


exit 
name 


If there is not a user 
associated with this data 
transfer is to PT3920. 


PT3900 


PT3920 


PT3940 


PT31030 


PT31040 


PT31060 


PT31080 


PT31140 


PT31170 


PT31180 


PT31200 


PT31210 


PT31220 


PT31250 


PT31320 


PT31330 


PT31350 


PT31370 


PT31390 


PT31420 


PT31430 
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The number of the user exit is 
set to the print area. 


XTRAC is called to extract the 
format indicator. The format 
indicator is ai bit if the mode 
of the variable is integer; 
otherwise, it will be a 0 bit 
indicating REAL. 


The format indicator either an R 
or an I is set to the print area. 


XTRAC is called to extract the 
1~bit scale factor indicator. 


If there is not a scale factor 
transfer is to PT31200. 


XTRAC is called to extract the 


3-bit scale factor. 


XTRAC is called to extract the 
1-bit scale factor sign. 


XTRAC is called to extract the 
9-bit subscript. 


The bit 
179. 


index is incremented by 


If the subscript is zero transfer 
is to PT31320; otherwise, trans- 
fer is to PT31290. 


XTRAC is called to extract the 
13-bit subscript. 


The bit index is 
17. 


incremented by 
If the subscript is zero transfer 
is to PT31320. 


The subscript is set to the print 
area and transfer is to PT31500. 


The print position pointer is set 
to position 46. 


The bit index is 
eight. 


incremented by 
XTRAC is called to extract the 
8-bit expression character. 


If the character is a 
transfer is to PT31460. 


comma 
The expression character is set 
to the print area. 


pointer is 
next print 


The print position 
incremented to the 
position. 


The bit index is incremented by 
eight and transfer is to PT31350. 
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PT31460 


PT31500 


PT31520 


DFJPTDP5 


This module is a 
used only 
table dump module. 


The bit index is incremented to 
round out to the end of ae full 
word. 


The expression line is printed. 


If all expressions have been pro- 
cessed for this phrase, an exit 
is made from this routina; other- 
wise, transfer is to PT3790. 


special purpose module 
in conjunction with the phrase 
It produces the dump of 


the internal check entry table. 


PT5760 


PT5770 


PT5790 


PT5970 


PT5990 


PT51010 


PT51080 


PT51090 


PT51110 


PT51120 


PT51130 


PT51160 


PT51180 


PT51210 


PT51240 


A test is made to determine if 
the entire table has been pro- 


cessed. If it is transfer is to 
PT51960. 
XTRAC is called to extract a 


2-bit test type, that is, to 
determine whether the test is for 
TRUE, FALSE, REAL or NOT FALSE. 


The test type is set to print. 


XTRAC is called to extract a 


13-bit subscript. 


XTRAC is called to to extract the 


11-bit suffix indicator. This 
indicator determines whether 
there is an additional suffix 


record in internal table 5. 


The subscript is set to the print 
area. 


The bit 
16. 


index is incremented by 
XTRAC is called to extract the 
13-bit suffix indicator. 


If there is not a suffix record 
transfer is to PT51410. 


The bit index is 
16. 


incremented by 
This check entry line is printed 
and transfer is to PT5760. 


XTRAC is called to extract the 
11-bit format indicator. 


XTRAC is called to extract the 
15-bit symbol. 


The symbol is set to print. 


The bit index is incremented by 


16. 
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PT51260 


PT51270 


PT51280 


PT51290 


PT51320 


PT51350 


PT51370 


PT51380 


PT51410 


PT51430 


PT51520 


PT51530 


PT51550 


PT51570 


PT51580 


PT51590 


PT51610 


PT51620 


PT51630 


PT51640 


PT51660 


PT51670 
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A test is made to determine if 
there is a relative subscript. 
If there is transfer is to 
PT51320. 


The subscript is set equal to 1. 


The subscript is set to print. 


The bit index is incremented by 
13 and transfer is to PT51090. 


Plus sign is set to output. 
XTRAC is called to 


16-bit subscript. 
PT51090. 


extract the 
Transfer is to 


The subscript is set to the print 
area. 


The bit index is incremented by 
32. DICK: is transfer to 


XTRAC is called to extract the 
2-bit suffix type indicator. 
This determines whether the suf- 


fix is a program list, a literal, 
a subscript, or a push phrase. 


The action code, that is an A, C, 
P or a blank, is set to print. 


XTRAC is called to extract the 


14-bit subscript. 


If there is not a suffix record 
transfer is to PT51570. 


The subscript is set to print. 
The suffix switch is reset. 


The bit index is 
16. 


incremented by 


If there is not a suffix record 
transfer is to PT51160. 


If the action list is a program 
list transfer is to PT51750. 


The number of characters in the 
action list is determined. 

The print position indicator is 
set to 34. 


XTRAC is called to extract two 
characters from the action list. 


The two characters are set to the 
print area. 


The bit 
16. 


index is incremented by 
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PT51680 


PT51690 


PT51710 


PT51750 


PT51770 


PT51800 


PT51820 


PT51830 


PT51850 


PT51860 


PT51870 


PT51900 


PT51930 


PT51940 


PT51960 


DFJPTDP6 


This 


module is a 


The print position pointer is 
incremented by 2. 


If a full line of print has not 
been set up transfer is to 
PT51720. 


The current line is printed. 


If the action list is entirely 
processed transfer is to PT5760. 


made to determine if 
If it is 


A test is 
the program is a name. 
transfer is to PT51900. 


XTRAC is called to extract a 
32-bit entry from the program 
list. 


If the extracted number is not a 
zero transfer is to PT51900. 

The program number 0 is set to 
print. 

The action list 
incremented. 


pointer is 


The bit index is incremented by 


32. 
The check entry line is printed. 


XTRAC is called to extract the 
8-character name. 


The program name is set to the 


print area. 


The action list pointer is incre- 
mented. Transfer is to PpT51870. 


Exit from DPDP5 is to the next 


sequence instruction in the 
phrase table dump program. 


special purpose module 


used only in conjunction with the phrase 


table dump module. 
All data required by the 


tion. 


It has no other func- 
mainline 


and by this subroutine are passed through 


COMMON. 


PT6750 


PT6760 


PT6780 


switch is set to 
initial entry into 


An internal 
indicate the 
the program. 


XTRAC is called to extract 
bits. 


eight 


A test is made to determine if 
the character just extracted is a 
dollar sign. If it is the begin- 
ning of the expression area is 


PT6800 


PT6850 


PT6870 


PT6900 


PT6920 


PT6940 


PT6960 


PT61010 


PT61030 


PT61050 


PT61160 


PT61180 


PT61200 


PT61220 


PT61240 


PT61270 


PT61290 


PT61310 


PT61330 
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indicated and transfer is to 


PT61710. 


A test is made to determine if 
this is the initial entry. If it 
is not transfer is to PT6900. 

The initial switch is 
turned off. 


entry 


The table 6 header line is set to 
the print area and printed. 


A test is made to determine if 
this variable has a symbolic sub- 
script. If it does transfer is 


to PT61510. If this variable 
does not have ae scale factor 
transfer is to PT61420. If the 


indicator is invalid transfer is 


to PT61930. 


XTRAC is called to extract the 


3-bit scale factor. 


XTRAC is called to extract the 
1i-bit sign indicator. 


The signed scale factor is set to 
print. 

XTRAC is called to extract the 
9-bit subscript. 


The subscript is set to print. 
XTRAC is called to extract the 
1-bit mode indicator that is set 


to the print area. 


The bit 
16. 


index is incremented by 
The print position pointer is set 
to postion 32. 


XTRAC is called to extract an 
2-bit EBCDIC character. 


Tf the character is a 
transfer is to PT61370. 


comma 


The extracted character is set to 
print. 

Print position indicator is 
incremented by 1. 


If a full line of print is not 
set up transfer is to PT61340. 


The line of 
printed. 


expression is 


The print position indicator is 
reset to position 34 allowing for 
an indentation of two spaces of 
continue lines. 
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PT61340 The bit index is incremented by 
8. Transfer is to PT61200. 


PT61370 The bit index is incremented by 
8. 

PT61380 The expression line is printed. 

PT61390 If the entire table has been 
processed transfer is to PT61930. 
Otherwise, transfer is to PT6760. 

PT61420 XTRAC is called to extract the 


and the sub- 
Transfer 


13-bit subscript 
script is set to print. 
is to PT61030. 


The following processing is for expressions 
with symbolic subscripts. 


PT61510 The 15-bit associated sym- 
bolic name is extracted and 
set to print. 

PT61590 XTRAC is called to extract 
the 14-bit relative 
subscript. 

PT61610 If it is relative 1 transfer 
is to PT61670. 

PT61630 The relative subscript and a 
plus sign are set to the 
print area. 

PT61670 The bit index is incremented 


by 32. Transfer is to 


PT61180. 


The following narrative describes proces- 
Sing of the dollar sign expressionarea. 
PT61710 The dollar sign formula area 
header is set to the print 
area and printed. 


XTRAC is called to extract 
the 2-bit EBCDIC character. 


PT61740 


The bit index is incremented 
by 8. 


PT61770 


A check is made to determine 
if the extracted character 
is a comma. If it is trans- 
fer is to PT61750. 


PT61790 


PT61810 The extracted character is 
set to the print area. 


If the current line is not 
full transfer is to PT61740. 


PT61820 


A line full indicator is 


set. 


PT61830 


PT61850 The expression line is 


printed. 
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PT61870 If a line complete indicator 
is set transfer is to 
PT61920. 

PT61900 The character index is reset 
to print position 12. 

PT61920 If there are more expres-~ 


sions to be processed trans- 
fer is to PT61740; other- 
wise, this subroutine 
returns control to the call- 
ing phrase table dump module 
at the call statement +t1. 


DFJREN (OS) 


Tnis module insures that all direct access 
records that are currently in core buffers 
are written out on their respective files. 
It also closes the sequential files. 


RTN270 The subroutine FLUSH is called to 
purge any DYNAMIC file records. 
RTN310 The subroutine FLUSH is called to 
purge any PERMANENT file records. 
RTN410- 
RTN510 The sequential files are closed 


and control is returned to the OS 
supervisor. 


DFJRETN (DOS) 


This module insures that the buffers in 


DFJDIOCS are flushed. 


DRE290 A call is made to DFJDIOCS to 
insure that all buffers are 
quiesced. 

DRE450 An EOJ macro is issued to return 
control to the DOS supervisor. 

DFJSCHB 


This subroutine searches the PERMANENT file 
control chain for an open file control 
block. If an equal is found, the address 
is returned in GPR3. 

SCB270 GPR3 is set to point out the file 
control block chain. 


A test is made to see if this 
control block was the last in the 
chain. If yes, control is 
returned to the caller indicating 
an error. 


SCB330 


A test is made to see if this 
control block is for the 
requested file. If yes, the 
address is returned to the caller 


SCB370 


15 JULY 1969 


DFJSCHN 


in GPR3. Otherwise, the next 
control block in the chain is 
located and transfer is to 
SCB330. 


This subroutine searches the PERMANENT file 


drive 


the address 


chain. 


returned in GPR3. 


SCN290 


SCN370 


SCN490 


If an equal drive is found, 
of the control block is 
The search argument in GPR4 is 


set in a work area for the search 
and the PERMANENT file drive 
chain is located. 


A test is made to see if this is 
the requested drive. If not, 
transfer is to SCN490; otherwise, 
control is returned to the caller 
+4, 


A test is made to see if this is 


the last control block in the 
chain. If yes, control is 
returned to the caller +0 to 
indicate no equal drive. Other- 
wise, the pointer to the drive 


table is stepped and transfer is 
to SCN370. 


DFJSIocS (DOS) 


This is the sequential file 
for DOS PLAN. 
card readers, card punches, 
magnetic 


Tocs routine 
It handles all the I/O for 
printers and 
routine uses the 


tapes. This 


subroutines CCBSTART and CCBWAIT along with 
SRCHIOC and COMRET in the PLAN loader. 


SIO570 


SIO710 


S101010 


SI01070 


$I01130 


The TRUE end-of-file indicator is 
set in the status byte of the 
control block and control is 
returned to the caller through 
the COMRET exit in the PLAN 
loader. 


The NOD argument is validated by 
calling the subroutine SRCHIOC in 
the PLAN loader. If a NOD is 
invalid, control is returned to 
the caller through the COMRET 
subroutine in the loader. 


made to see if the 
capable of satisfying 
If not, transfer is 


A test is 
device is 
the request. 
to SIO570. 


A test is made to see if the file 
is open. If not, transfer is to 
SI02930. 


A test is made to see if the file 
is in the same status. That is, 


SI01170 


S101210 


S101250 


S101370 


S1I01930 


$102130 


S1I02190 


SI02310 


SI02350 


S1I02510 


S102790 


STO2930 


ST03430 


STO3510 


SI03630 


SI03770 
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if the call type PLINP or PLOUT 
is the same as previous calls. 
If not, transfer is to SI0O570. 


A test is made to see if a 
physical end-of-file has occurred 
on the file. If yes, transfer 
SI0570. 


A test is made to see if carriage 
control is required. If not, 
transfer is to SI02130. 


If this is a PLINP call, transfer 
is to SI01930. 
Line count maintenance is 
performed. 


Carriage control character is set 
in the buffer. This character is 
set as a result of calling PCCTL. 


A check is made to see if the 
next buffer is available. If 
not, transfer is to SI03430. 


The buffer address is updated. 


If this is a PLOUT call, transfer 
is to SI02510. 


If the current card in the buffer 
is a /*, <7//, or UREND card, 
transfer is to SI0O570. Other- 
wise, transfer is to SI02790. 


The buffer area is blank. 


The new buffer pointer is set in 
the control block and exit is to 


the caller through the cCOMRET 
subroutine in the loader. 

The file is opened. This 
includes setting the CCW count 


for the data CCW and initializing 
the buffer pointers. Transfer is 
to S101210. 


If a wait is required on the last 
I/O operation, it is issued. 


If the carriage control CCW 
operation is set to a no-op. 


A test is made to see if the 
device is a tape. If it is not, 
transfer is to SI03770; other- 
wise, the carriage control CCW 
operation code is set to a valid 
mode set character and transfer 
is to SIO4950. 


If the device is not a 
transfer is to SI04390. 


1052, 
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SI03850 


SI04070 


ST04150 


ST04390 


SI04510 


SIO4&730 


STO4950 


SIo04990 


SI05010 


S105110 


If this is a PLOUT call, transfer 
is to SIoO4150. 


The buffer area is cleared and 
the CCW count is set and transfer 
is to SIO4950. 


The blanks are backscanned off 
the buffer so that the CCW may be 
reduced accordingly and transfer 
is to SIO4090. 


A test is made to see if carriage 
control is required. If yes, the 
data address of the data CCW is 
stepped past the carriage control 
character in the buffer. 


If this is not a card device 
transfer is to SI04730. Other- 
wise, a check is made to see if a 
stacker select is required. If 
yes, the control CCW op code is 
set for the appropriate stack 
select command and transfer is to 
STO4950. 


A test is made to see if carriage 
control is required. If yes, the 
carriage control CCW operation 
code is set accordingly. 


The data CCW is completed. The 
address of the buffer and the Ccw 
count are stored. 


The subroutine CCBSTART in the 
loader is called to execute the 
I/O operation. 


If this file is not double buff- 
ered, a wait is issued. If it is 
double buffered, transfer is to 
SIO5110. 


The buffer pointers for the cur- 
rent record area are swapped and 
transfer is to SI02190. 


DFJTRACE (DOS) 


This routine provides a tracing 


capability 


for the DOS PLAN system. 


DTR190 


DTR210 


DTR290 


DTR410 


102 


The skeleton message is moved to 
the print area. 


If this is a LOCAL 
local trailer is 
print area. 


return, the 
moved to the 


If this is a checkpoint return, 
the checkpoint trailer is moved 
to the print area. 


The TRACE entries are 
This includes’ the 


completed. 
origin, the 
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end, and the entrypoint of the 
programs involved. 

A GET time macro is issued and 
the time is placed in the 
message. 

The TRACE line is printed and 
control is returned to the 
caller. 


DFJTRACE (0S) 


This 


module is 
time if the PARM TRACE is specified in 


at initialization 
the 


loaded 


EXEC JCL control card. 


DTR270 


DTR310 


DTR830 


DTR890 


ERLST 


The ERLST 
module of 


ERL390 


ERL410 


ERRET 


The address of the current output 
buffer is located. 


The trace time is built depending 
on the type of call which can be 
a phrase abort, checkpoint 
reload, or a module to be 
entered. 

The registers are saved and the 
return from SIOCS is set. 


Exit is to the SIOCS routine to 
print the line. 


subroutine is the error list 
the PLAN error processing module. 


The location of blank COMMON is 
accessed. 


The error list indicator is 
turned on within the loader. The 
subroutine is terminated by 


transfer to the DFJPLAN module. 


The following narratives describe the logic 


of the 


ERROR, 


ERREX, ERRET, and ERRAT 


subroutines. 


ERR1310 


ERR1410 


ERR2110 


ERR2130 


The registers are saved according 
to standard convention. 

The error message is assembled 
within the work area. 


The error message is 
the error stack. 


placed in 


If the call was to the ERROR 
subroutine the module is ter- 
mMinated with a transfer to 
DFJPLAN. 
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ERR2170 


ERR2270 


ERR2450 


ERR2710 


ERR2810 


ERR2950 


ERR3130 


ERR3170 


ERR3210 


ERR3230 


ERR3330 


ERR3530 


EWRIT 


1969 


If the immediate mode of error 
processing is in effect transfer 
is to ERR2430. 


If the error stack is found not 
to be full transfer is to 
ERR3130. 


A save area is set and transfer 
is to ERR3330. (DOS) 


If a user-exit module is to be 
invoked to process the error mes- 


Sage transfer is to ERR3330. 
(OSs) 

If there is not room within 
memory for the PERRS module 
transfer is to ERR3330. 

The local subroutine call is 


initiated to invoke execution of 
the PERRS module. Transfer is to 
ERRIOO. (OS) 


to the ERREX 
terminated 


If this call is 
module processing is 
by transfer to DFJPLAN. 


If this cail is to the ERRAT 
subroutine processing continues, 
otherwise, transfer is to 
ERR3230. 


The abort indicator is turned on. 
The registers are restored and 
processing is terminated by a 
return to the caller. 

PERRS is called via LCHEX. 


The save area is released and 
transfer is to ERR3130. 


The EWRIT subroutine provides a listing of 


errors contained in the PLAN 
The PLAN error 


error file. 


file is DYNAMIC file 255 


within DYNAMIC drive 0. 


EWR610 


EWR830 


EWR930 


EWR950 


Registers are saved according to 
Standard PLAN conventions. 


If drive 0O has been defined for 
this PLAN run processing con- 
tinues, otherwise, transfer is to 
EWR1490. 


The FIND subroutine is called to 
open logical file 255 on logical 
drive 0. 


If the file was not successfully 
opened transfer is to EWR550. 
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EWR1050 The appropriate record to be 
printed is assembled. 

EWR1390 The record is written to file 
255. 

EWR1410 The error file indicator is 
turned on. 

EWR1490 The registers are restored. The 
subroutine is terminated by 
return to the caller at the next 
executable statement. 

FIND 

This logic describes processing of the 

FIND/READ/WRITE/RELES subroutines. These 

subroutines comprise the OS PLAN file 

processing. 

FIN3050 The registers are saved according 
to standard OS conventions. Base 
registers are set. 

FIN3170 The appropriate call type is set. 

FIN3310 If this is not a READ or WRITE 
entry transfer is to FIN3590. 

FIN3410 If the file control block is not 
open, exit is to the ERRABORT 
entry in DFJPLAN. 

FIN3470 The drive code is extracted from 
the ID block. 

FIN3590 If the drive code is invalid 
transfer is to FIN19730. 

FIN3850 DOS processing to locate the con- 
trol block for the associated 
drive. 

FING450 OS processing to locate control 
block for the associated drive. 
If the search fails, transfer is 
to FIN19730. 

FIN4U850 Linkage into the processing rou- 
tine is executed. 

RELESR FINSO30, the NSQZ argument is 
saved. 

FIN5050 If the amount of words to remain 
in the file is zero or negative 
transfer is to FIN5090. 

FIN5070 An indicator is set to indicate 
that this release operation is 
for a partial release. 

FIN5090 The RELESF subroutine is entered 


to release this file and transfer 
is to FIN7370. 
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FINDR 


FIN5510 


FIN5830 


FIN5910 


FIN5970 


FIN6010 


FIN6090 


FIN6170 


FIN6370 


FIN6390 


FIN6410 


FIN6650 


FIN6930 


FIN6970 


FIN7070 


FIN7090 


FIN7150 


FIN7250 


FIN7370 


FIN7430 


This is the entry point for the 
FIND subroutine. If this find 
does not indicate a change in 
level transfer is to FIN5910. 


The priority for the release 


operation is set. 


The PRIREL subroutine is called 
to release all files up to the 
level of this file. 


The file number is set. 


The number of words to be allo- 
cated to the file is saved. 


If the priority of the files is 
found not to be valid transfer is 
to FIN19730. 


If the priority of the file is 
not zero transfer is to FIN1580. 


The priority of the file is set 
to the level of the current 
phrase. 


The VTOC record is read. 


If the file is a new file trans- 
fer is to FIN6930. 
file is 


The FD record for this 


read. 


the file control block is marked 
as open and transfer is to 
FIN7430. 


If this is a FINDL call, transfer 
is to FIN7370. 


The NALLO parameter, that is, the 
number of words to he allosated 
to this file is converted to the 
number of segments. 


The return linkage is saved. 


The table of contents record for 
this drive is read into memory. 


If there is space for this file 
transfer is to FIN7850. 


If there are files that can be 


released to provide more space 
for the file transfer is to 
FIN7650. 


The file control block is marked 
as closed. 


ID(2) of the file control block 


is set. 
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FIN7510 


FIN7650 


FIN7250 


FIN7850 


FIN8230 


FIN8290 


FIN8430 


FIN8410 


FIN8510 


FIN8530 


FIN8610 


FIN8810 


FIN8890 


FIN8930 


FIN9030 


FIN9070 


FIN9430 


FIN9470 


FIN9590 


FIN9630 
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Return is made to the caller. 


The priority for the release 
operation is set. 
The PRIREL subroutine is’ called 


to release the files by priority. 


The return from the allocation is 
set. Transfer is to FIN15510. 


The necessary arguments are 
accessed from the call list. 


If KDIS and KOUNT are not valid 
transfer is to FIN19730. 


If this is a read operation 
transfer is to FIN8530. 


If KDIS and KOUNT result in a 
displacement outside the current 
value specified in the second 
word of the file control block 
processing continues, otherwise, 
transfer is to FIN8530. 


The new value representing KDIS 
plus KOUNT is set into the second 
word of the file control block. 


If KDIS plus KOUNT is’ greater 
than the second word of the file 
control block transfer is to 
FIN7370 . 


KDIS and KOUNT are converted to a 
value in bytes. 


The FDRTTR is retrieved from the 
coding within the first word 
within the file control block. 


If the TTR is not valid transfer 
is to FIN19730. 


The FD record is read. 


If the required data is not 
within the current file size pro- 
cessing continues; otherwise, 
transfer is to FIN9810. 


If this is a read 
transfer is to FIN7370. 


operation 


If the required record is not 
within the current file alloca- 
tion transfer is to FIN3180. 

The new file size is set and 
transfer is to FIN2710. 


The required allocation in words 
is set. 


The number of words to be allo- 
cated is converted to segments. 
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FIN9650 


FIN9670 


FIN9690 


FIN9810 


FIN10030 


FIN10190 
FIN10410 


FIN10510 


FIN10830 


FIN10870 


FIN10930 


FIN11010 


FIN3940 


PRIREL 


FIN11250 


FIN11270 


FIN11410 


FIN11450 


FIN11490 


FIN11530 


The volume table of contents 


record is read. 


The priority of this allocation 
is set. 


The ALLOC subroutine is called to 
allocate the required space for 
this file. Transfer is to 
FIN8810. 


The LOGICAL record number = cur- 
rently required is calculated. 


The segment number containing the 
LOGICAL record is calculated. 


The actual segment is located. 
The required record is located. 


The number of bytes remaining in 
the allocation is calculated. 


If the user count is greater than 
the number of bytes remaining 
processing continues, otherwise, 
transfer is to FIN10930. 


The remaining byte count is used. 


The values of KDIS and KOUNT are 
updated. 

The necessary read or write is 
initiated. 


If the user specified count is 


not zero transfer is to FIN7510; 
otherwise, transfer is to 
FIN8810,. 

This subroutine performs a 


priority release operation. 
The return linkage is saved. 


The return linkage from the RELES 
subroutine is set. 


The SCAN subroutine is called to 
release any file numbered from 1 
to 127. 


The SCAN subroutine is called to 
release any file numbered from 
128 to 255. 


If the RELES priority is not 
equal to four transfer is to 
FIN1I1530. Otherwise, the PRIREL 


subroutine is terminated. 


The RELES priority is incremented 
and transfer is. to FIN11410. 


SCAN 


FIN11670 


FIN11750 


RELESF 


FIN11950 


FIN11970 


FIN12070 


FIN12090 


FIN12210 


FIN12250 


FIN12270 


FIN12390 


FIN12430 


FIN12470 


FIN12650 


FIN13190 


FIN13390 


FIN14490 


FIN14990 


FIN15030 


FIN15050 


FIN15090 
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The volume table of contents 
record for the current file is 
read. 


A search is initiated for a file 
at the RELES priority. 


If a file is found transfer is to 
FIN11950. Otherwise the  § subrou- 
tine is terminated by return to 
the user. 

This subroutine is entered to 
release a file. 

The volume table of contents 
record is read. 


If the file is found not to exist 
transfer is to FIN15352. 


The FD record is read. 


If this is not a partial release 


transfer is to FIN13190. 

If the NSQZ argument is not less 
than the current file size trans- 
fer is to FIN12270. 

The new file size is established. 


The NSQZ argument is converted to 
segments. 


A pointer is set to the first 
segment to be released. 


If this is not a NSQZ or an 
allocation function transfer is 
to FIN12650. 


The partial release indicator is 
reset. 


The FD record is updated. 


The availability record is read. 
The segment which was just 
released is recorded in the 


availability record. 


The availability record is 
optimized. 
The availability record is 


rewritten to the file. 


The allocation counts are 
updated. 
If this is a partial release 


transfer is to FIN15170. 


The file 
destroyed. 


directory ID is 
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FINI5170 The file directory record is 
written. 


FIN15190 If this is a partial release 
operation transfer is to 
FIN15352. 


FIN15230 The volume table of contents 
record is updated. 


FIN15352 The subroutine is terminated by 
return to the caller. 


FIN15510 The volume table of contents 
record is read. record is”~ read. 


FIN15530 If the file is found to exist 
transfer is to FIN16990. 


FINi5590 The new file directory skeleton 
is built. 


FIN15730 The availability record for the 
file is read. 


FIN15750 The space for the file is located 
from the availability record. 


FIN15770 The availability record is 
updated. 

FIN15790 The availability count is 
updated. 


FIN16750 If this is a partial allocation 
transfer is to FIN15170. 


FIN16790 The ID for the file directory 
block is created. Transfer is to 
FIN15170. 


FIN1I6990 The FD record is read. 


FIN17010 The partial allocation indicator 
is set. Transfer is to FIN15730. 


FIN19730 ECODE and ENUMP are set. The 
FIND subroutine is terminated by 
transfer to DFJPLAN. 


GMERG/PMERG 


These subroutines invoke the DYNAMIC file 
and PERMANENT file merge facility. 


XME610 The caller's registers are saved 
and a base register is set. 


XME730- 

XME950 The ID blocks of the merge files 
and the output files are tested. 
If any of the files are not open, 
transfer is to XME1170 to avoid 
the merge. Otherwise, the ID 
blocks are moved to a save area 
in the mainline. 
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XME1030 The LCHEX subroutine is used to 
invoke the module DFJGMERG or 
DFJPMERG to perform the merge. 

XME1090 The caller's ID block for the 
output file is updated to reflect 
the size of the merge files and 
return is made to the caller. 

XME1170 The appropriate error number and 
ECODE are set and exit is to 
ERRABORT in the mainline to force 
a phrase abort. 

GSORT/PSORT 


These subroutines invoke the PERMANENT file 
and DYNAMIC file sort facility. 


XSO470 


XSO0610 


XS0650 


XSO710 


XSO830 


The caller‘s registers are saved 
and a base register is set. 


If the ID block of the file to be 
sorted is not open, transfer is 
to XSO0830. 


The ID block is moved to ae save 
area in the mainline. 


The LCHEX subroutine is used to 
invoke the SORT modules DFJ*SRTA 
and DFJ*SRTB. On return from the 
LCHEX routine, control is 
returned to the caller. 


The appropriate error number and 
ECODE is set and exit is to 
ERRABORT in the mainline to force 
a phrase abort. 


NUSER, IUSER, GUSER, EUSER 


These subroutines are the user-exit inter- 
face subroutines for DFJPSCAN, the PLAN 
interpreter. 


NUS1550 


NUS1590 


NUS1630 


NUS1650 


This is the GUSER call  proces- 
sing. The addresses of the 
character access routine and the 
next character bucket in DFJPSCAN 
are located. 


If the next character is a comma 
or a semicolon, transfer is to 
NUS1850. 


The next character is moved to 
the user's array word. 


The access routine in DFJPSCAN is 
called to get the next character 
in the input stream and transfer 
is to NUS1850. 
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NUS1730 This is the NUSER processing. If 
this is not the first call to 
NUSER, transfer is to NUS1910. 

NUS1810 ISUBS and ISW which are located 
in PSCAN are moved to the user 
word arrays. 

NUS1850 Exit is to the calling program. 

NUS1910 The CAP pointer for the user 
ISUBS argument is incremented. 

NUS2050 The user's ISUBS is tested and if 


invalid, transfer is to NUS1810. 


NUS2090 The ISW arguments are set toa 
positive value and transfer is to 


NUS1810. 

NUS2130 This is the EUSER processing. 
The N1, N2, and literal are moved 
to DFIPSCAN for processing on 
return. 

NUS 2370 Exit is to RETURN in DFJPLAN 
which simulates a CALL LRET from 
the user-exit module. Note that 
there no IUSER processing, it is 

INPUT 


The INPUT subroutine retrieves the image of 
the current PLAN statement and places it in 
the user-specified array in memory. 


INP730 Registers are saved according to 
the standard OS conventions. The 
base register is set. 

INP1070 PFINPUTA record of the PLAN lan- 
guage dictionary is read into 


memory. 


INP1210 The end of the PLAN statement is 


located. 
INP1590 The calculation is made of the 
number of blanks that must be 


inserted beyond the end of the 


PLAN statement. 


INP1830 The statement is moved to the 
user-specified array. 


INP 2110 If blank characters are not 
required at the end of the state- 
ment transfer is to INP2310. 

INP 2150 Positions within the user array 


to the right of the semicolon of 
the PLAN statement are set to 
blank. 
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INP2310 Registers are restored. Subrou- 
tine is terminated by return to 
the caller. 

tocs (pos) 


This subroutine allows reassignment of the 
Standard PLAN input and output devices. 


I0c470 The caller's registers are saved 
and the base registers are set. 


10c590 The INPUT argument is validated 
using the subroutine SRCH. If 
the argument is invalid, transfer 
is to I0C630. 

I0C610 The current input device code is 


set to the caller‘s argument. 


I0c 630 The LIST argument is validated 
using the subroutine SRCH. If 
the argument is invalid, control 
is returned to the caller. 


I0c670 The current output device code is 
set to the caller's argument and 
control is returned to the 
caller. 

Iocs (os) 


The IOCS subroutine allows the PLAN input 
and output device specifications to be 
altered during execution. 


I0c470 Registers are saved according to 
standard OS conventions. The 
base register is set. 

I10c590 If the device code specified by 
the input argument is not valid, 
transfer is to I0C890. 

Toc 610 A pointer to the new current 
input device is set. 

I0c 890 If the list argument is found to 
be valid transfer is to 100950. 
Otherwise the subroutine is ter- 
minated by return to the caller. 

10C 950 The output device specification 
is altered to the user-specified 
device. Subroutine is terminated 
by return to the caller. 

LCHEX (0S) 

This subroutine allows exit to a module 

that overlays the calling module. The 

system status and the program area are 


saved on the checkpoint file. 
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LCH990 


LCH1190 


LCH1390- 
LCH1590 


LCH1710 


LCH1950 


LCH2090 


The LIST subroutine is called to 
Manipulate the pop-up list. 


The 
built in a 
mainline. 


checkpoint control record is 
work area in the 


A test is made to see if a 
checkpoint file exists and if 
there is enough room to write the 


checkpoint. If yes, transfer is 
to LCH1710; otherwise an error 
number of 110 is set and exit is 


to ‘ERRABORT*’ in the mainline to 
cause a phrase abort. 


The checkpoint control record is 
written on the file. 
The active program area is writ- 
ten on the checkpoint file. 


The system status is updated and 
exit is to PLANLOPF in the main- 
line to load the next program in 
the pop-up list. 


LCHEX (DOS) 


This subroutine causes the modules named in 
the argument list to be invoked through the 
PLAN checkpoint facility. 


LCH690 


LCH870- 
LCH1190 


LCH1430-— 
LCH1650 


LCH1970- 
LCH2230 


LCH2530- 
LCH3430 


108 


The callers registers are saved 
and a test is made to see if this 
subroutine is in the calling 
module. If not, exit is to 
ERLINK in the loader to force a 
phrase abort. 


The PSCB for this module is saved 


and a test is made to see if 
there is enough room in the 
checkpoint file for this module. 


If not, exit is to ERLINK in the 
loader to cause a phrase abort. 


If a PSCB does not exist for this 


module, the module is written on 
the checkpoint file immediately. 
Otherwise, the PSCB is marked as 


requiring a checkpoint and exit 
is to the LEX subroutine to up- 
date the pop-up list. 


This routine is used to write 
this module on the checkpoint 
file when the loader determines 


that the module will be overlaid. 


This routine is entered from the 
loader when an asterisk is found 
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in the pop-up list. It restores 
the program area to the condition 
at the time of the CALL LCHEX and 
returns control to _ the calling 
module. 


The LEX subroutine provides transfer to the 
resident PLAN loader with manipulation of 
the program pop-up list. 


LEX610 


LEX670 


LIST 


The LIST subroutine is called to 
do the necessary manipulation of 
the program pop-up list. 


A pointer is set to blank COMMON, 
The subroutine is terminated by 
transfer to DFJPLAN. 


The LIST subroutine is called to manipulate 
the pop-up program list. 


LIS730 


LIS940 


LIS1035 


LIS1095 


LISi175 


LIS1890 


LIS1910 


LIS2020 


LIS2430 


LIS2450 


LIS2472 


LIS2532 


LIS2536 


The registers are saved according 
to conventions. 


If the user count is zero trans~- 
fer is to LIS2450. 


The user count is rounded to an 
even integer. 

If this is a negative call, 
transfer is to LIS2532. 


Pointers are set to the user 
array and the pop-up list. If 
the user entry is zero transfer 
is to LIS2472. 


If the pop-up list has not over- 
flowed transfer is to LIS2020. 
Exit is 
abort. 


to DFJPLAN for phrase 


The entry is moved to the pop-up 


list. If not, the last entry 
transfer is to L1IS1890. 

The pop-up list pointers are 
updated. 

control is returned to the 
caller. 

The pop-up list is reset and 


transfer is to L1IS2020. 


A pop-up list entry is moved to 
the users array. 


If the list entry was 
transfer is to LIS2430. 


zero, 
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LIS2544 If the user count is not zero 
transfer is to LiS2532, other- 
wise, transfer is to LIS2430. 

LISTB 


The LISTB subroutine is entered to add one 
program to the bottom of the pop-up list. 


LIB530 Registers are saved according to 
standard OS conventions. Base 
registers are set. 

LIB770 A pointer is set to the end of 
the pop-up list. 

LIB890 If addition of one program will 
not cause pop-up list overflow 
transfer is to LIB1030. 

LIB990 The LISTB subroutine is ter- 
minated by transfer to DFJPLAN. 

LIB1030 The list pointer is updated to 
reflect the new entry to be 
added. 

LIB1110 The current pop-up list entries 
are shifted by one. 

LIB1290 The new name is added to the 
bottom of the list. 

LIB1310 Registers are restored and the 
subroutine is terminated by 
transfer to DFJPLAN. 

LISTZ 


This subroutine resets the pop-up list. It 
performs the same function as a CALL LIST 


LSZ1800 The pop-up list is reset and 
control is returned to the 
caller. 

LNCHX 

This subroutine resets the status of the 

checkpoint file. 

LNX1800 The note pointer to the check- 
point file is reset to zero and 
control is returned to the 
caller. 

LNRET (OS) 


The LNRET subroutine is called to terminate 
the return chain of LOCAL list processing. 
LNR410 Registers are saved according to 
standard PLAN convention. 
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LNR450 A pointer is set to BLANK COMMON. 

LNR490 The execution level indicator is 
reset to zero. 

LNR510 The LOCAL chain is cleared. 

LNR650 Registers are restored and the 


subroutine is terminated by 
return to the calling module at 
the next executable statement. 


LNRET (DOS) 


This subroutine cancels any LOCAL proces- 
Sing. The caller of this module becomes 
the mainline program. 

LNR410 The subroutine CLOCAL in the 


loader is called to clear the 
LOCAL chain and control is 
returned to the caller. 


LOCAL (0S) 


The LOCAL subroutine provides multiple 
level LOCAL‘'s, that is, the ability to call 
a LOCAL from a LOCAL for the PLAN system. 


LO0c 710 Registers are saved according to 
standard PLAN conventions. 

LOC 750 The LIST subroutine is called to 
manipulate the pop-up program 
list. 

LOC 810 A pointer is set to blank COMMON. 

Loc 850 A register is set to point to the 


parameter list. The subroutine 
is terminated by transfer to the 
DFJPLAN module. 


LOCAL (DOS) 


This subroutine causes the program named in 
the argument list or the next program in 
the pop-up list to be loaded and executed 
as a subprogram. 


LOC 730 The subroutine LIST is called to 
process the N and L arguments. 
LOC890 A test is made to see if the 


LOCAL subroutine itself is within 
the calling module. If not, exit 
is to ERLINK in the loader to 
force a phrase abort. 


LO0c1050 The address of the callers argu- 


ment list is saved in the loader 
to be passed to the called 
program. 
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The PCB for this module is marked 
as a LOCAL caller. This prevents 
reuse of this copy of the module 
until control is returned from 
the LOCAL module. Exit is to 
NEXTLOAD in the pop-up list to 
load the subprogram. 


LO0C1250 


L0C1690 This is a special entry to write 
the module in the checkpoint 
file. 

LOC2270 Return from the called program is 
to here. The system status is 
updated and return is made to the 


caller of this subroutine. 


LREPT 


The LREPT subroutine is called to repeat 
execution of the current phrase. 


REP430 A pointer is set to BLANK COMMON. 


REP470 The repeat indicator is turned on 
within the resident loader indi- 
cating that the current phrase 
should be repeated. This indica- 
tor is interrogated by PSCAN. 
The subroutine is terminated by 
transfer to DFJPLAN. 


LRET 
The LRET subroutine provides linkage to the 


resident PLAN loader with no manipulation 
of the program pop-up list. 


LRT4&50 A pointer is set to BLANK COMMON. 
The subroutine is terminated by 
transfer to DFJPLAN. 

LSAV, LRLD 


The LSAV and LRLD subroutines are provided 
only for the function of providing compati- 
bility to the 1130 PLAN system. 


LSA290 Error codes are set to indicate 
an invalid call. Subroutine is 
terminated by transfer to 
DFJPLAN. 

NDEF 


The NDEF subroutine provides the user with 
the ability to test any PLAN word for a 
content of a logical TRUE logical FALSE or 
REAL. 


If the current contents of the 
user-specified word is not logi- 
cal TRUE transfer is to NDE270. 


NDE790 
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NDE810 The subroutine is terminated with 
a value of logical TRUE. 

NDE890 Tf the content of the user- 
specified word is not a logical 
FALSE transfer is to NDE330. 

NDE930 The subroutine is terminated with 
an indicator set to logical 
FALSE. 

NDE1010 The subroutine is terminated with 
an indicator set to a value of 
REAL. 

PAIN 

The PAIN and PAOUT subroutines are the A 


format input and output subroutines of the 
OS PLAN I/O package. 

PAI1410 The registers are saved according 
to standard conventions. The 
base register is initiated. 
PAI1930 If the device code specified is 
valid transfer is to PAI2070; 
otherwise, the subroutine is ter- 
IMinated by return to the caller. 
PAI2070 If the arguments in the call list 
are valid transfer is to PAI2270; 
otherwise, the subroutine is ter- 
Minated by return to the caller. 
PAI2270 A pointer is set to the beginning 
and the end of the buffer. 

data to 


PAI2390 A pointer is set to the 


be moved. 


The data is moved between the 
system buffer and the user~ 
specified array. The subroutine 
is terminated by return to the 
user. 


PAI2692 


PBFTR 


The PBFTR subroutine provides for a trans- 
fer for the entire contents of one buffer 
to a second buffer. 

PBF670 If the first specified device is 
valid transfer is to PBF710; 
otherwise, the subroutine is ter- 
Minated by return to the user. 
PBF710 A pointer is set to the buffer 
associated with the first device. 
PBF810 If the second specified device is 
valid transfer is to PBF 870; 
otherwise the subroutine is ter- 
minated by return to the caller. 
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PBF870 


PBF1010 


PBTST 


A pointer is set to the buffer 
associated with the second speci- 
fied device. 


The contents of buffer one are 
transferred to buffer two. Sub- 
routine is terminated by return 
to the user. 


The PBTST subroutine is the bit manipula~ 
tion extract under mask and test under mask 
logical routine of the OS PLAN I/O package. 


TST1130 


TST1230 


TST1290 


TST1330 


TST1350 


TST1370 


TST1470 


TST1670 


TST1710 


TST1890 


TST1910 


TST1950 


TST1990 


TST2090 


TST2270 


TST2290 


Registers are saved according to 
standard conventions. 


The user-specified NWRD is set to 
zero. 


If the OP code specified is zero 
transfer is to TST2270. 

The result is initiated to all 
1-bits. 


If the OP code specified is nega- 
tive transfer is to TST2270. 


If the OP code specified is not 
valid transfer is to TST2290. 


The test mask is assembled based 
on the bits specified to be 
tested. 


If the operation code specified 
is less than four transfer is to 
TST2090. 


A bit test is performed. 


A result of the bit test is 
placed in the end skip argument. 


If the operation code specified 
is 1,2,3,5,6,7,9,10, or 11 trans- 
fer is to TST2090. 


If the 
is a 4 or an 8 
TST2290. 


operation code specified 
transfer is to 


The bits 
NBIT argument are 
Transfer is to TST2290. 


corresponding to the 
accessed. 


The required result to be placed 
in NWRD are accumulated. 


The argument is set to the user- 
specified NWRD. 


The registers are restored. Sub- 
routine is terminated by return 
to the caller. 
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PBUSY, PDBFA, PDBFB, PDBFC, PDBFD, PDBFE, 
PSBFA, PSBFB, PSBFC, PSBFD, PSBFE 


These routines are provided on the DOS and 
OS PLAN systems only for 1130 compatibili- 
ty. They are no-ops and consist only of a 
Single instruction which is a return on 
register 14. 


PCAF, PCAI, PCEA, PCFA, PCIA 


These are the core-to-core conversion rou- 
tines They are interface routines into the 
actual conversion routines. 


900 The caller's registers are saved. 


1000 The entrypoints for the setup and 


conversion routines are set. 


1100 Register 2 is set to indicate the 
mode of the conversion routine, 
INTEGER or REAL. 

1200 Exit is to the setup routine 
DFJISET. 

PCCTL 


The PCCTL subroutine is the device function 
control routine of the OS PLAN I/O package. 
It provides for such functions aS carriage 
control, and stacker select. 

PCC 810 If the device code specified is 
valid transfer is to PCC 290. 
Otherwise the subroutine is ter- 
minated by return to the caller. 
PCC 950 If the arguments specified in the 
call list are valid transfer is 
to PCcCc1090. 

default 


PCC1030 The arguments are set to 


values. 
PCC1090 The carriage control character is 
set for the next operation. Sub- 
routine is terminated by return 
to the caller. 


PCOMP 


PCO250 Registers are saved according to 


the standard conventions. 


PCO350 The result is set to indicate 
that the first array was found to 
be low. 


Sub- 
return 


PCO360 The registers are returned. 
routine is terminated by 


to the caller. 
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PEOF 


This is a function subroutine that tests a 
device for an occurrence of a logical or 
physical end-of-file. FP register 0 is 
used to return the result. 

PEO830 FP register 0 is reset to indic- 
ate a physical end-of-file 
condition. 


The subroutine SRCHIOC is called 
to validate the NOD argument. If 
NOD is invalid, control is 
returned to the caller. 


PEO950 


PEO990 The status of the file specified 
by the NOD argument is tested. 
If a physical EOF condition has 
occurred, control is returned to 
the caller. 

PEO1030 FP register 0 is set to positive 
value to indicate no EOF 
condition. 


The file status is tested for a 
logical end-of-file status and if 
not present, control is returned 
to the caller. 


PEO1050 


PFO1090 FP register 0 is set to a nega- 
tive value indicating a logical 
end-of-file condition and control 


is returned to the caller. 


PENDF (DOS) 


This subroutine closes a sequential file. 
If the unit is a magnetic tape, and end-of- 


file mark is written and the file is 

rewound. 

PEN4Y9IO-— 

PEN730 The sequential file control block 
chain is searched to determine if 
the file exists and is open. If 
not, control is returned to the 
caller. 

PEN770 If the device is not a tape unit, 
transfer is to PEN1150. 

PEN910 If the file was in output status, 
a tape mark is written. The tape 
is rewound to the load point. 

PEN1150 The subroutine DFJFMAIN is called 
to release the core for the file 
control block and buffers. Exit 
is to the caller. 

PENDF (0S) 

This routine closes a sequential file. The 

data set is repositioned to the first 
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record. 


PEN430 


PEN510 


PEN550-— 
PEN850 


PEN950- 
PEN1330 


PEN1350 


PEOUT, PFOUT, PFIN, PIOUT, 


These are the 
subroutines. 
which just interface into the 
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The subroutine SRCHIOC is called 
to validate the NOD argument. If 
it is invalid, control is 
returned to the caller. 


If the file has not been used, 
control is returned to the 
caller. 


If the file is in output status, 
the buffers are flushed if 
necessary. 


The file status and buffer point~- 
ers are initialized and the first 
buffer is set to blanks. 


A TCLOSE macro is issued to repo- 
sition the data set to the begin- 
ning of the file and control is 
returned to the caller. 


PIIN 


PLAN 
These 


sequential conversion 
are actually routines 
actual con- 


version routines. 


900 


1600 


1700 


PFSPC 


The caller's registers are saved. 


The conversion routine and the 
setup routine entrypoints are 
set. 


Exit from this routine is to the 
setup routine DFJCSECT. 


The PFSPC subroutine provides a linkage to 


allow the 


user to determine the amount of 


file space available on a DYNAMIC drive at 
any priority. 


PFS630 


PFS690 


PFS770 


PFS1930 


PFS1450 


The caller 
accessed. 


argument list is 


The return parameter is initiated 
to zero. 


If the specified drive is invalid 
transfer is to PFS1930. 


If a priority is specified trans- 
fer is to PFS1530. 


The level of the current phrase 
is accessed in a set as the 
priority for which the search is 
to be initiated. 


15 JULY 1969 


PFS1530 The volume table of contents 
record is read. 

PFS1770 If any level change is indicated 
transfer is to PFS1970. 

PFS1870 A determination is made of the 
Space available at the required 
priority. 

PFS1930 The determined amount Of space is 
set to the user argument. The 
subroutine is terminated by 
return to the caller. 

PFS1970 A determination is made of the 
available space of the highest of 
the two priorities encountered at 
the level change. Transfer is to 
PFS1870. 

PHIN 


This subroutine retrieves EBCDIC literals 
from the literal file as established by the 
PHOUT subroutine or by the PDIAG module as 
initiated by the SET LITERAL command. 
Calling parameters to this subroutine are a 
pointer to the file control block, the 
literal number that is to be extracted, and 
the location in memory at which the literal 
is to be placed. The literal location in 
the user's array will be a positive literal 
count if execution of this subroutine is 
successful. If the location is a fixed- 
point zero the file control block was found 
to be invalid or not opened when the 
subroutine was called. If the position is 
a minus one, the header of the indicated 
file was found not to be valid for a 
literal file. If the position is a minus 
two, the requested literal number was high- 
er than the greatest literal number con- 
tained in the file. If the value is a 
Minus three, the literal number was not 
found to be in the file. 


A test is made to determine if 
the file is properly opened. If 
it is transfer is to PHI250. 


PHI190 


PHI210 The error return is set to zero. 


PHI230 Control is returned to the pro- 
gram at call +1. 


A test is made to determine if a 
literal file is properly initial- 
ized. If it is transfer is to 
PHI230. Otherwise, the error 
return is set to a minus one and 
transfer is to PHI230. 


PHI250 


PHI320 a test is made to determine if 
the number of the requested lit- 
eral is larger than the highest- 
numbered literal contained in the 
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file. If it is not, transfer is 
to PHI370. 

PHI340 The error return is set to a -2 
and transferred to PHI230. 

PHI370 The literal index record is read 
into memory. 

PHI 380 A test is made to determine if 
the literal is in file. If it is 
transfer is to PHI430. 

PHI 410 The error return is set to -3 and 
transfer is to PHI230. 

PHI 430 The literal length indicator is 


read into memory. 


PHI 460 The length of the literal record 
is calculated from the number of 
characters in the literal. 


PHI 480 The literal is read into memory 
into the user‘s array and trans- 
fer is to PHI230. 

PHOUT 

This subroutine is used to store literals 


in the standard PLAN literal file. The 
subroutine is required by the PDIAG module. 
The PDIAG module is initiated as a result 
of the SET LITERAL command. Calling param- 
eters of the PHOUT subroutine are a pointer 
to the open file control block, the number 
of the literal that is to be added to the 
literal file, and the location in memory 
that contains the PLAN literal text of the 
literal to be added to the _ file. The 
format of the literal file is as follows: 


The first thru word of the file contains 
a logical FALSE that is, 7FFFFFFF. 


The second word of the file contains’ the 
number of PLAN words within the file. 


The third word of the file indicates the 
highest number of any literal contained 
in the file. 


The fourth word of the file indicates the 
number of FORTRAN words that have been 
used from the end of the file toward the 
beginning of the file for storage of 
literal information. Each literal is 
stored as the literal number, the literal 


character count followed by the literal 
text. 
PHO210 A test is made to determine if if 


the file is properly opened. If 
it is transfer is to PHO270. 


PHO230 The literal count in the users 


array is set to zero. 
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PHO250 


PHO270 


PHO300 


PHO320 


PHO390 


PHO520 


PHOS4#O 


PHO580 


PHO600 


PHO640 


PHO660 


PHO690 


PHO720 


PHO740 


PHO760 


PHO800 


Control is returned to the 
at call + 1. 


user 


A four-word file header is read 
into file memory. 


to determine if 
Tf it 


A test is made 
the first word is FALSE. 
is transfer is to PHO720. 


A four-word file header block is 
initialized and written to the 
literal file. 


The remainder of the file is set 
to logical FALSE. 


A test is made to determine if 
this is a delete operation. A 
literal delete operation may be 
as a result of entry of an equal 


number literal or may be indi- 
cated by a negative or zero. 
literal count. If this is a 


delete operation transfer is to 
PHO250. 


A test is made to determine if 
there already exists in this file 
a literal with the same number. 
If there is transfer is to 
PHO7T40. 


The displacement at which this 
literal will be stored is written 
in the literal displacement 
table. 


The literal and literal number 
are written to the file. 


The space used indicator in the 
file header is updated. 


If required, the indicator in the 
header is updated to reflect the 
new highest literal number. 


A four-word header is rewritten 
to the literal file. 


A test is made to determine if 
this a literal delete. If it is 
not transfer is to PHO5S40. 


If the literal to be deleted is 
greater than the highest-numbered 
literal currently in the file, 
transfer is to PHO250. 


The displacement to the literal 
to be deleted is read and then is 
set to logical FALSE. 


The literal count of the Literal 
to be extraced from the file is 
written into memory. 
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PHO8 20 


PHO840 


PHO860 


PHO980 


PHO1090 


PHTOE 


The PHTOE 
notation to EBCDIC representation so 
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The literal count is converted to 
record size. 


The total record size of the 
literal to be deleted is used to 
adjust the space used indicator. 


The displacement table for all 
literals that are to be pushed 
down as a result of the delete is 
updated to reflect the size of 
the literal that is to be 
deleted. 


All literals which were beyond 
the literal to be deleted are 
pushed down to fill up the unused 
Space. 


file header is 
updated and is rewritten to the 
literal file. A test is made to 
determine if this is an ADD lit- 
eral. If it is transfer is to 
PHO580; otherwise, transfer is to 
PHO250. 


The literal 


subroutine converts hexadecimal 
that 


it may be printed by PLAN I/O package. 


PHT550 


PHT630 


PHT810 


PHT870 


PHT890 


PIOC 


Registers are saved according to 
Standard conventions. 

The PLAN word is converted to 
eight bytes . 


The TO and FROM pointers are 
incremented. 


If the last input word has not 
been processed transfer is to 
PHT630. 


Registers are restored. Sub- 
routine is terminated by return 
to the caller. 


This is a function subroutine which tests 
the availability of a device. 


PIO690 


PIO710 


PIO750 


F. P. register 0 is set to zero 
to indicate the requested unit is 
not available. 


The subroutine SRCHIOC is called 
to validate the NOD argument. If 
invalid, control is returned to 
the caller. 


FP register 
tive value to indicate 


0 is set to a posi- 
that the 
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requested unit is free and con- 
trol is returned to the caller. 


PLINP 


The PLINP subroutine is the routine 


of the OS I/O package. 


input 


PLI410 The call type is set to indicate 
a PLINP call. 

PLI430 The DFJSIOCS subroutine is 
located. The subroutine is ter- 
minated by transfer to DFJSIOCS. 


PLOUT 


The PLOUT subroutine is the output routine 
of the OS PLAN I/O package. 


PLO410 The call type is set to indicate 
a PLOUT call. 

PLO430 Linkage to the DFJSIOCS module is 
set. The subroutine is ter- 
minated by transfer to DFJSIOCS. 

PPACK 


The PPACK subroutine allows a user to pack 
a right-adjusted byte of any PLAN word into 
any byte position of a character array. 


PPA610 The registers are saved according 
to standard conventions. The 
argument list is accessed. 

PPA650 The address of the word into 
which the byte is to be packed is 
accessed. 

PPA710 The required byte is transmitted 
to the TO array. 

PPA730 The registers are restored. The 
subroutine is terminated by 
return to the caller at the next 
executable statement. 

PPAGL 


The PPAGIL subroutine is used to set the 


page length for the PLAN I/0 package. 


PGL490 If the specified device code is 
valid transfer is to PGL570. 
Otherwise, the subroutine is ter- 
minated by return to the caller. 

PGL570 If the user-specified argument is 


valid transfer is to PGL630; 
otherwise processing is ter- 
minated by return to the caller. 
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PGL630 The logical page length is set 
equal to the new specified value. 
The subroutine is terminated by 
return to the user. 


PRGIO 
The PRGIO subroutine is a common subroutine 


to perform the functions required of the 
PARGO and PARGI subroutines. 


RGO230 Registers are saved according to 
standard OS conventions. The 
argument list is accessed. 

RGO310 A pointer to the location within 


the communication array is set. 


RGO460 The array is moved to or from 
common as required by the call. 


RGO540 The registers are restored. The 
PRGIO subroutine is terminated by 
return to the caller at the next 
executable statement. 

PUNPK 

The PUNPK subroutine may be called to 


extract any byte of a character array and 
to place it right-justified into any other 
FORTRAN word. 


PUN610 The registers are saved according 
to standard conventions. The 
argument list is accessed. 

PUN630 The address of the array from 


which the byte is to be extracted 
is accessed. 


PUN730 The byte is moved from the array 
to the receiving word. 


PUN750 The registers are restored and 
processing is terminated by 
return to the caller at the next 
executable statement. 

PUSH 

The PUSH subroutine allows the user to 


force execution of a command that exists in 
memory in EBCDIC format. 


PUS510 Base registers are set according 
to standard OS standard 
conventions. 

PUS570 The appropriate I/O parameters 
are set up. 

PUS690 The count of the number of chara- 


cters within the EBCDIC literal 
are verified. 
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PUS790 A semicolon is inserted at the 
end of the literal. 

PUS870 The literal text is written to 
the PFINPUTA record of PFILE, the 
language dictionary of PLAN. 

PUS890 The repeat phrase indicator. is 


set for the interpreter DFJPSCAN. 


PUS910 If any DYNAMIC drive FD records 
are in the program area they are 
purged. The subroutine is ter- 
minated by a transfer to DFJPLAN. 


RWDATA 
The RWDATA subroutine is the processing 
logic for the RDATA, WDATA, RDAT1, and 


WDAT1 subroutines. 


RDA930 The registers are saved according 
to standard conventions. 

RDA1210 If any of the call parameters are 
found to be invalid transfer is 
to RDA2770. 

RDA1730 The displacement within the file 
is calculated. 

RDA1970 If this call is a read call 
transfer is to RDA2070. 

RDA2010 If the indicated displacement is 


greater than the second word of 
the file control block processing 
continues. Otherwise, processing 
continues to RDA2070. 


RDA2050 The second:word of the file con- 
trol block is updated to the new 
value. 

RDA2070 If the indicated displacement is 

greater than the current file 

size processing continues; other- 
wise, transfer is to RDA2770. 

RDA2650 The appropriate read/write param- 

eters are calculated. 


or write operation is 
initiated to transmit the 
required data. The subroutine is 
terminated by return to the user. 


RDA2670 A read 


RDA2770 The necessary error number is set 
and the subroutine is is ter- 
minated by transfer to the ERRA- 


BORT subroutine. 
STVAL 
The STVAL and GTVAL are array transmission 


subroutines. 
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STV670 Registers are saved according to 
standard PLAN conventions. The 
argument list is accessed. 

STV770 The TO array and FROM array 
addressed in KOUNT are set. 

STV870 The array is transferred. 


STV1070 The registers are restored and 
the subroutine is terminated by 
return to the caller at the next 
executable statement. 


TRUE 
The TRUE and FALSE subroutines set the 


specified user word to the value assoicated 
with logical TRUE or logical FALSE. 


TRU750 The registers are saved according 
to standard conventions. 

TRU770 The argument list is accessed. 

TRU790 The specified user word is set to 
the value of logical TRUE 
(8000000) or logical FALSE 
(7FFFFFF). 

TRU810 The registers are restored and 
return is to the caller at the 
next executable statement. 

XACES 

This subroutine is a special purpose PFILE 


sector read subroutine that is used exclu- 
sively with a phrase table dump module. It 
has not function in any other use. The 
calling parameters are the relative PFILE 
sector numbers to be read into memory and 
the communication array subscript into 
which the sector is to be read. 


XAC160 A test is made to determine if 
the file control block is proper. 
If it is transfer is to XAC210. 

XAC180 File number 255 is set to the 
file control block. Transfer is 
to XAC230. 

XAC 210 A test is made to determine if 
the file is open. If it is 
transfer is to XAC250. 

XAC230 GDATA is called to open PFILE. 

XAC250 A test is made to determine if 
this dump is being made on the 
1130. If it is transfer is to 
XAC320. 

XAC270 The PFILE displacement is set 


equal to 128 FORTRAN words multi- 
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plied by the relative . sector 


minus 1. 
XAC290 The number of words to be read by 
RDATA is set as 128 FORTRAN 
words. Transfer is to XAC360. 


The PFILE 
set equal to the 
FORTRAN words minus 
plied by the relative 
number. 


XAC320 read displacement is 
file size in 
160 multi- 
sector 


The number of FORTRAN words to be 
read is set equal to 160. 


XAC340 


RDATA is called to read the sec- 
tor into the communication array. 
This subroutine returns control 
to the mainline program at the 
calling statement +1. 


XAC360 


XBIT 


This subroutine is a special purpose sub- 
routine used only with the phrase table 
dump. Its function is to adjust the 
internal bit pointer and the count of the 
internal phrase entry table size. The only 
calling parameter is the increment/ 
decrement that is to be used in the 
required adjustment. 


XB1I90 The count of the number of bits 
still to be processed in this 
internal table is decremented by 
the amount of the calling 
parameter. 


XBI100 The internal bit pointer is 
incremented by the amount of the 
calling parameter. Control is 
returned to the calling program 
at call +1. 


XPRNT 


This subroutine is a special purpose sub- 
routine used only with the phrase table 
dump. Its function is to test the end-of- 
file indicator to skip to a new page if 
required and to print the existing line. 

XPR100 A test is made of the physical 
end-of-file indicator. If a 
physical EOF has not been pro- 
cessed transfer is to XPR140. 
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XPR120 A skip to a new 
initiated. 


page is 


XPR140 The current print buffer is 
printed and control is returned 
to the user at call +1. 


XTRAC 


This subroutine extracts a bit field froma 
PFILE entry as it exists in a communication 
array. The calling parameters are the bit 
number, the number of bits to be extracted, 
and the PLAN word that is to receive the 
extracted field. If the routine is to be 
executed on the 1130, a field of 16 bits or 
less is placed into the left two bits of a 
FORTRAN word. If the field width is great- 
er than 16 when the subroutine is executed 
on an 1130 system or if the execution is on 
a System/360 the field extracted is right- 
justified in the 32-bit FORTRAN word. 


XTR140 A pointer is 


read area. 


set to the input 


XTR160 The FORTRAN word that is to 
receive the extracted field is 
cleared by call to PBTST. 

XTR180 Calculations are made to deter- 

mine the bit position, the rela- 

tive record number for the start 
of the field. 


XTR200 The internal record number is 
adjusted if the bit position 
indicated is greater than _ the 
size of an internal record. 


XTR220 The appropriate FORTRAN word 
within the communication array is 
located. 


XTR340 The desired field is extracted by 
calls to PBTST. Consecutive bits 
within the field are tested one 
at a time. If the bit is found 
to be on ae_e subsequent call to 
PBTST places the bit in the 
receiving field. Subroutine 
execution is terminated by a 
return to the calling program at 
the calling statement +1. 
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